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LAS PERAS DEL OLMO 



Ya llevamos mucho tiempo viéndonos 
las caras y las páginas mes a mes y 
juntos hemos aprendido a 
comunicarnos a fin de que nuestra 
relación entre editorial y lector sea 
fructífera. Para que esta revista no se 
convierta en un olmo que nunca dará 
peras. En este sentido procuramos que 
nuestro equipo de redacción y de 
programación trabaje no sólo 
intensivamente, sino también con 
imaginación. Entre el esfuerzo y la 
imaginación hemos comprobado que 
los resultados son mucho más 
generosos. Pero, decirlo de este modo 
parece una mera expresión retórica y 
no es así. 

En primer lugar nuestro esfuerzo 
consiste en buscar, investigar y dar la 
mayor y mejor información acerca de 
los aparatos MSX, al mismo tiempo 
abordamos temas con una utilidad 
práctica para los usuarios. Nadie 
quiere tener un ordenador sólo para 
jugar, aunque claro está que a todos 
nos divierte hacerlo. En este sentido, 
tratamos de conjugar de un modo más 
o menos armónico el sentido lúdico del 
lector y sus necesidades empresariales, 
educativas, etc. El rigor y la seriedad 
con que acometemos nuestra tarea 
tiene una gran recompensa por vuestra 
parte. 

En segundo lugar, tenemos siempre 
presente que no debemos bajar la 
guardia ante los embates y que, como 
profesionales debemos esclarecer todo 
aquello que esté a nuestro alcance, 
evitando contribuir a la confusión que 
en el terreno informático es cada vez 
mayor. Una confusión que permite que 
aparatos y sistemas que no tienen 
ningún futuro en estos momentos estén 
compitiendo con el único sistema que, 
en la gama de los home computer, tiene 
futuro: el MSX. 

Lo que ganamos con esto, nuestra 
cosecha de peras, es el respeto y la 
consideración de un número de 
lectores cada vez más importante. Un 
número que nos mantiene a la cabeza 
de las ventas entre las revistas de MSX. 
Gracias. 

MANHATTAN TRANSFER, S.A. 
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Línea directa ■ 



Tengo un SVI-728 y qui- 
siera qUe me respondierais a 
un par de preguntas: 

¿Qué es un píxel y cuán- 
tos tiene mi ordenador? 

¿A cuántos Kb es amplia- 
ble su memoria? ¿Se puede 
ampliar a nivel de Mb? ¿De 
qué manera? 

Pedro García Barroso 
VALLADOLID 

La palabra inglesa píxel de- 
signa a cada uno de los pun- 



tos individuales que pueden 
ser mostrados en pantalla. 
Los MSX de primera genera- 
ción disponen de una resolu- 
ción de 256 X 192 píxels, o lo 
que es lo mismo, 49152 pí- 
xels. 

Teóricamente, la memoria 
total (RAM y ROM) de los 
ordenadores MSX puede al- 
canzar el orden de los Mega- 
bytes, como tú preguntas. De 
esta forma, los MSX pueden 
llegar a tener 992Kb de 
RAM. El inconveniente es 
que esta cantidad de memo- 
ria sólo es accesible por me- 
dio de bancos (como ocurre 



PCOMPATIBLE, LOS 
OTROS COMPATIBLES: 



Quisiera que me aconse- 
jaseis alguna revista intere- 
sante sobre PC. En concreto 
qué os parece la revista PC 
Magazine. 

Mikel Amisnarriz 
Salaverria 
Fuenterrabía 
(GUIPUZCOA) 

Como ya debes saber, la fa- 
milia IBM PC y toda la gama 
de compatibilidades con su 
sistema, forman un estándar, 
como el formado por los 
MSX; pero a un nivel supe- 
rior. Si tu interés es llegar a 
un volumen de datos y una 
rapidez superior a la de los 
MSX, es la opción más ade- 
cuada, ya que sales de un es- 
tándar para ingresar en otro. 

En el mundo de los compa- 
tibles PC existe un vacío muy 
grande. Estas máquinas, de- 
bido a su gran capacidad 
(comparada con un MSX de 
la primera generación), han 
sido utilizadas únicamente 
en el 



lo que todas las publicaciones 
que existen sobre el tema se 
dividen fácilmente en dos 
grupos muy determinados: 
las revistas de gestión, que no 
son más que un compendio 
de bancos de prueba de pro- 
gramas de gestión (caso este 
el de PC magazine), y las re- 
vistas técnicas, que son total- 
mente inaccesibles para aque- 
llos que no sean profesionales 
del sector. 

Con el ánimo de llenar 
este vacío existente para los 
que se inician en el campo de 
los PCs, vamos a lanzar al 
mercado una publicación 
cuyo nombre será PCompati- 
ble, y que se dirigirá indistin- 
tamente a técnicos, comercia- 
les, y particulares, tratando 
todos los temas de interés de 
una forma sencilla, como in- 
tentamos hacer en las revistas 
de MSX. 

Se tratará, además, de una 
revista interactiva, que in- 
cluirá concursos, programas, 
dudas, etc. Aunque la filoso- 
fía de la publicación será bien 
diferente a la de las revistas 
de MSX, ya que su contenido 
será mucho más completo y 
técnico, en el fondo seguire- 



en tu ordenador para utilizar 
la totalidad de los 80Kb). 

Pasar de la teoría a la prác- 
tica no suele ser sencillo, y en 
nuestro caso tampoco lo es. 
No conocemos ninguna am- 
pliación de memoria en el 
mercado que termita alcan- 
zar esas cotas de memoria. De 
momento deberás confor- 
marte con las ampliaciones 
habituales. 



LISTADOS: 



En el programa "Brisca" 
del número 21 del mes de 
noviembre, me da un error 
en la línea 4080, que da co- 
rrecta en el test de listado. 
Asimismo, las líneas 4580, 
4650, 4750 no dan correctas 
en el citado test a pesar de 
haberlas archicomprobado. 
¿Los programas que publi- 
can son previamente com- 
probados? 

Javier García Gran 
BARCELONA 

El test de listados es una 
excelente herramienta am- 
pliamente difundida entre las 
publicaciones informáticas 
de todo el mundo. La princi- 
pal ventaja del test es que de- 
tecta el 99% de los errores de 
una forma sencilla y rápida. 
Sin embargo, el sistema utili- 
zado en nuestro test de lista- 
dos es el de checksum. Se su- 
man los códigos internos de 
cada uno de los caracteres que 
componen la línea, de modo 
que, si cambiamos por equi- 
vocación uno de los caracte- 
res, la suma no será correcta, 
detectándose de ese modo el 
error. 

Por desgracia, el test no es 
infalible. Si invertimos el or- 
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den de dos cifras en un pro- 
grama 48 por 84 (por ejem- 
plo), el test de listados sigue 
siendo correcto, ya que la 
suma de los códigos sigue 
siendo la misma. Existen 
otros sistemas de verificación 
de listados; por ejemplo el sis- 
tema de módulo 1 1, que co- 
rrigen este tipo de errores; 
pero que resultan mucho más 
complicados de utilizar, sobre 
todo para el usuario inexper- 
to. 

El primer caso que nos co- 
mentas ha de deberse, sin 
duda, a la permutación de ci- 
fras antes comentada. Fíjate 
que se trata de una serie de 
números en que es fácil este 
error. 

El segundo error, es decir, 
que el test de listados no cua- 
dra, aun verificando las lí- 
neas, no es un problema del 
test, sino de interpretación. 
Ya hemos avisado en nume- 
rosas ocasiones de los peli- 
gros de confundir eles con 
unos, os con ceros, o como po- 
dría ser tu caso, confundir las 
comas con puntos (son comas 
lo que hay en el listado) o los 
paréntesis con corchetes o lla- 
ves. También puede ser que 
confundas el símbolo parrilla 
(situado sobre el 3) con cual- 
quier de los otros símbolos 
del teclado. 

Esperamos haber aclarado 
tus dudas, así como las de 
otros lectores que pudieran 
tener dudas similares. 



CINTAS PE ORDENADOR: 

Quisiera que me aconse- 
jarais qué tipo de cintas de 
cassette debo utilizar para 
almacenar programas, pues 
las que actualmente uso, que 
son las normales que venden 
para música TIPO NOR- 
MAL, me dan problemas al 
recuperar los programas ya 
que aparecen caracteres que 
no he grabado 

Antonio Rubio Duro 
JAEN 

En realidad las cintas ade- 
cuadas para la grabación de 
datos por ordenador son las 



ORDENADORES MSX: 
100% COMPATIBLES 



En el número 22-23 de 
MSX-Club, en el artículo 
"Sonido profesional en tu 
MSX", al hablar de los reque- 
rimientos de Hardware nece- 
sarios para trabajar con el 
EMR Miditrack Performer 
hay un punto que ha induci- 
do a confusión a varios de 
nuestros lectores. 

Al decir que no todos los 
MSX son compatibles, en 
realidad nos referíamos a que 
el programa no es compatible 
con todos los ordenadores de 
la norma. Los MSX son com- 
patibles 100% entre sí. La 
explicación a este fenómeno 
es sencilla. 

En primer lugar, este tipo 
de errores, no son culpa de los 
aparatos, sino de los progra- 
mas, que no siguen las nor- 
mas dictadas por Microsoft 
en cuanto a compatibilidad. 

Las máquinas MSX, aun 
siendo muy similares, no son 
iguales internamente, ya que 
esto violaría las leyes del Co- 
pyright y los derechos de au- 



tor. Existen, por tanto, pe- 
queñas diferencias entre or- 
denadores de diferentes mar- 
cas. 

Estos puntos oscuros de los 
MSX han sido cuidadosa- 
mente aislados por los dise- 
ñadores del sistema operativo 
(ROM BIOS). Todo progra- 
mador que se precie conoce 
estos puntos oscuros, y las ru- 
tinas de la BIOS (incorpora- 
das en el ordenador) que per- 
miten trabajar con ellos sin 
incurrir en problemas de 
compatibilidad. 

La mayoría de errores de 
compatibilidad se habían de- 
tectado en programas piratas, 
ya que la mayoría de piratas 
no cuentan con el dominio 
necesario del aparato como 
para conocer estos puntos. En 
este caso, sólo se trata de una 
falsa alarma, ya que aun no 
siguiendo las normas MSX, 
el programa funciona correc- 
tamente en todos los MSX 
que conocemos, ya que todos 
sitúan sus bancos de RAM en 
los slots utilizados por el pro- 
grama. No hay peligro por lo 
tanto a que el programa no 
funcione en vuestro ordena- 
dor. 



de tipo normal. No sólo resul- 
ta un gasto inútil grabar los 
programas en cintas de alta 
calidad (dióxido de cromo o 
metal), sino contraproducen- 
te, ya que este tipo de cintas 
responden muy bien a las fre- 
cuencias y amplitudes utiliza- 
das por los equipos de músi- 
ca; pero no a las utilizadas 
por el ordenador. En reali- 
dad, el ordenador genera una 
distorsión en la anta. Mien- 
tras mayor sea la fidelidad de 
la cinta, más difícil es que se 
produzca dicha distorsión. 

Te recomendamos, por 
tanto, que utilices cintas de 
tipo normal. Tampoco te de- 
jes llevar por los precios y 
compres antas de marcas des- 
conocidas, cuyo soporte mag- 
nético no tiene la suficiente 
calidad. Te recomendamos, 
por tanto, que utilices cintas 
tipo normal de marcas como 
Sony, Philips, Sanyo. En par- 
ticular, y como comentario 
personal, te puedo decir que 
he conseguido unos muy bue- 
nos resultados con cintas 
TDK. 



También puede ser intere- 
sante el adquirir cintas espe- 
ciales para ordenador, cuya 
principal ventaja es que, al te- 
ner menor duración, resultan 
mucho más cómodas de ma- 
nejar al grabar programas. 
Por otra cosa, son cintas de 
tipo normal, sin ninguna otra 
característica especial, salvo 
modelos muy determinados. 

Si tienes errores de carga 
con tus programas, te reco- 
mendamos sigas todas las re- 
comendaciones al respecto: 
sitúes las cintas lejos de cual- 
quier fuente de radiación, 
mantengas los cabezales lim- 
pios, ajustes el azimut del ca- 
bezal, etc. 



HARD-COPY Y UNIDAD DE 

DISCO] 

Me gustaría adquirir el 
programa HARD-COPY 
que ustedes comercializan. 
He leído el artículo que le 
dedican en el número 22-23 
de su revista; pero no han 
conseguido despejarme to- 



das las dudas. 

¿Es compatible la situa- 
ción en memoria del progra- 
ma con el sistema operativo 
de disco? 

De ser compatibles, («las 
opciones de grabar pantallas 
se pueden hacer sobre dis- 
co? 

Francisco Carballo Rubira 
Pozuelo de Alarcón 
(MADRID) 

El programa HARD- 
COPY, según nos ha indica- 
do su programador, desconec- 
ta las direcciones de la unidad 
de disco, para así evitar este 
problema, muy común en 
otros programas. De este 
modo podemos decir que el 
programa es totalmente com- 
patible con. las máquinas que 
cuentan con unidad de disco. 

Las opciones de grabar 
pantalla no pueden ser utili- 
zadas sobre el disco; pero esto 
no es ninguna limitación, ya 
que el DISK-BASIC tiene un 
comando especial para la gra- 
bación de pantallas en disco. 

Para grabar una pantalla 
en el disco no tienes más que 
hacer: 

BSAVE "nombre", di, 
df,S 

donde di y df son las di- 
recciones de inicio y final de 
la VRAM respectivamente. 
Para saberlas con exactitud 
deberías consultar un mapa 
de la VRAM en los diferentes 
modos de pantalla. En 
SCREEN 2 puedes hacer: 

BSAVE "nombre", 0, 
16383, S. 



¿MAS FE DE ERRATAS? 

Creo que sería interesante 
que en cada número hubiese 
un espacio fijo para la FE 
DE ERRATAS de números 
anteriores, para que no pase 
que, tras teclear un progra- 
ma no sepamos si está mal o 
se trata de una errata. 

Antonio Ramos Sánchez 
Rubí (BARCELONA) 

Para solucionar tus dudas 
y las de otros muchos lecto- 
res, vamos a explicarte todo 
el proceso que siguen los pro- 
gramas hasta su publicación. 



Al recibir un programa, 
automáticamente éste se in- 
corpora a nuestro archivo de 
programas y se le asigna un 
código. Este programa pasa, 
en este momento a la "sala de 
espera" , ya que el volumen de 
programas que recibimos es 
muy grande y no es posible 
probarlos inmediatamante. 

Estos programas se some- 
ten al juicio de nuestro depar- 
tamento de publicación de 
programas, que selecciona 
aquellos interesantes para su 
publicación. En numerosas 
ocasiones se solicita consejo 
al departamento de progra- 
mación para que tengan su 
oportunidad aquellos progra- 
mas que resultar interesantes 
por su estructuración, o por 
incluir métodos novedosos de 
programación. 
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Una vez seleccionados los 
programas, se prueban a fon- 
do, para comprobar que no 
dejan de funcionar en ningún 
momento. Tras esto, listamos 
el programa con el que hemos 
estado trabajando (evitando 
de ese modo errores de cinta) 
y realizamos el test de lista- 
dos (todo esto de forma si- 
multánea para evitar cual- 
quier posibilidad de error ). 

El programa listado (en un 
formato especial gracias a 
una rutina en ensamblador) 
es montado directamente y 
enviado a la imprenta. De 
este modo, el riesgo de erro- 
res es mínimo. 

Aún así, hemos localizado 
algún error en algunos pro- 
gramas. La FE DE ERRA- 
TAS de estos programas apa- 
recen en cuanto detectamos 
el error. Estos errores se de- 
ben a dos causas principales: 
no podemos probar todas las 
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Línea directa i 

posibles opciones de todos los 
programas, simplemente por 
falta de tiempo en los progra- 
mas más complejos, y en 
otros casos por un error en la 
imprenta o bien en la impre- 
sora (por una subida brusca 
de tensión que pasa desaper- 
cibida en redacción; pero que 
puede provocar un error de 
impresora) . 

Agradecemos, en estos ca- 
sos, las cartas recibidas de 
nuestros lectores, que nos po- 
nen alerta sobre estos posi- 
bles errores ocultos. 

Lamentamos no poder con- 
testar a aquellos cuyos erro- 
res se deben a una mala trans- 
cripción del programa por 
parte del lector, y por eso os 
rogamos encarecidamente 
que hagáis uso del TEST DE 
LISTADOS, aparecido en el 
número 7 de nuestra revista. 

Por tanto, repetimos, to- 
dos los errores detectados ya 
han sido publicados dentro 
de la sección FE DE ERRA- 
TAS 



CONTROL 
PE CALIDAD 

Por último decirte que los 
programas, por supuesto, son 
ampliamente verificados an- 
tes de proceder a su publica- 
ción. En muchos casos pasan 
por varios departamentos an- 
tes de obtener el visto bueno 
para su publicación, y siem- 
pre son sometidos a una pro- 
funda verificación para elimi- 
nar cualquier tipo de errores 
antes de publicarse. Podemos 
asegurarte que los programas 
publicados (salvo diabólicas 
excepciones) están exentos 
de cualquier tipo de error. 

En el caso de estas diabóli- 
cas excepciones publicamos, 
en cuanto las detectamos, la 
fe de erratas. 



CONEXION DE LOS MSX: 

¿Cómo se utiliza la salida 
RGB? ¿Qué es lo que hay 
que hacer para grabar imá- 
genes sobre cinta de vídeo? 

¿Se puede grabar música 




sobre cinta de vídeo me- 
diante la salida RGB? 

¿Qué diferencias existen 
entre el interfaz Midi EMR 
Miditrack y el Music Modu- 
le de Philips? 

¿Existe algún programa 
para tocar música, compo- 
ner, arreglar, etc, de Sony? 



A. Ormazabal 
(GUIPUZCOA) 



La salida RGB es una sali- 
da de vídeo de alta calidad. 
La característica principal de 
esta señal es que la señal no 
es modulada. En la señal de 
televisión, el ordenador mo- 
dula la señal (la convierte a 
formato TV) para que luego 
el televisor la demodule (la 
vuelva a traducir a puñtos). 
Este proceso hace que la cali- 
dad sea muy inferior a la del 
RGB, que envía la señal en 
forma de puntos (rojos 'Red', 
verdes 'Green' y azules 
'Blue'). 

La salida RGB, debido a su 
alta calidad, es la utilizada 
generalmente en los monito- 
res de media resolución y en 
la grabación de imágenes de 
ordenador a vídeo. Para con- 
seguir una grabación de la 
pantalla del ordenador en ví- 
deo no hay más que conectar 
la salida RGB del ordenador 
a la entrada RGB del vídeo. 
Si tu aparato de vídeo carece 
de entrada RGB deberás co- 
nectar la señal de TV a la en- 
trada de antena del vídeo, 



consiguiendo así la graba- 
ción, aunque de menor cali- 
dad que con el RGB. 

La música del ordenador 
se puede grabar sobre cinta 
de vídeo; pero no con la sali- 
da RGB. Esta salida maneja 
únicamente la señal de vídeo 
(no el audio). Para conseguir 
grabar el sonido de tu orde- 
nador debes utilizar la salida 
de TV. 

Las diferencias entre el 
Midi EMR Miditrack y el 
Music Module de Philips son 
numerosas. De este segundo, 
por ser de muy nueva apari- 
ción (hace tiempo que está 
anunciado; pero muy poco 
que está en el mercado), no 
conocemos exactamente las 
características técnicas del 
MIDI. 

El Midi EMR Miditrack es 
un sistema de registro multi- 
pista, es decir, un sistema pre- 
parado para funcionar simul- 
táneamente con numerosos 
instrumentos musicales. Está 
enfocado a la aplicación en 
estudios de grabación, para 
compositores, etc; pero no es 
el más adecuado para princi- 
piantes con un solo instru- 
mento, ya que en ese caso es 
sólo un secuenciador. 

El Music Module de Phi- 
lips está mucho más orienta- 
do a la música doméstica, ya 
que cuenta con una sola en- 
trada MIDI (desconocemos el 
número de instrumentos que 
puede controlar; pero parece 
ser que se trata sólo de uno). 
A cambio incorpora un sinte- 
tizador FM, lo que permite 
mezclar este sonido con el de 
tus instrumentos, o utilizarlo 
como instrumento si no tie- 
nes ninguno. Además incor- 
pora una unidad de ritmo, y 
otra de efectos especiales. 
Como ves, incluye todo lo ne- 
cesario para que el princi- 
piante pueda conseguir pie- 
zas de alta calidad con muy 
poco esfuerzo. 

No conocemos ningún pro- 
grama de composición de 
Sony; pero existen otros de 
otras marcas que funcionarán 
perfectamente en tu ordena- 
dor. Dos de ellos son los que 
incorporan los interfaz Midi 
anteriormente citados. 
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VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 
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TEST DE LISTADOS. El segundo programa de 
la Serie Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA. 
PVP. 500 Pts. 







nrisx 


club 

■— ii^iiiiiii 


U-BOOT 

/ 

±*60N GARANTIA 1 


QUINIELAS 

CON GARANTIA / 
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KRYPTON La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un Juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP 500 Ptas. 



ÜBOOT Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma 
riño de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc e impresión de boletos Acertar 
no siempre es cuestión de suerte PVP 700 
Ptas 



SNAKE Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP 600 Ptas. 





EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUTWER. Conviértete en el audaz FLOPPY, El Preguntón Un verdadero desafio uad j?ox Un héroe solitario es lanzado a 

piloto interestelar y lucha a muerte, a a tus conocimientos de Geografía e Historia mii carrera a vida o muerte por un desierto 

través del hiperespacio, contra las defe'n- española Floppy no perdona y te costara plagado de pell g ros Conseguir el combusti- 

sas del tirano Daurus. Dos pantallas y mucn0 su P erarlu pvp 1 000 
cinco niveles de dificultad PVP 1.000 pts. 



ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1 000 pts 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 

r~Nombre y apellidos: | 

Dirección: 

I Población: CP Prov Tel.: | 

□ KRYPTON Ptas. 500- □ SNAKE Ptas. 600,- □ FLOPPY PVP. 1.000 Ptas. 

□ ÜBOOT Ptas. 700- □ EL SECRETO DE LA PIRAMIDE Ptas. 700- □ MAD FOX PVP. 1.000 Ptas. | 



jOae 



□ QUINTELAS Ptas. 700- 

□ HARDCOPY Ptas. 2.500- 



□ STAR RUNNER 

□ TEST DE LISTADOS Ptas. 



Ptas. 1.000- 
500,- 



Gastos de envió certificado por cada cassette Ptas. 70 - Remito talón bancario de Ptas. 



□ VAMPIRO PVP. 800 Ptas 



a la orden de Manhattan Transfer, SA. 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 
A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 6 



Vendo TOSHIBA HX- 10 to- 
talmente nuevo, con cables de 
conexión y manuales en caste- 
llano, caja de embalaje y 40 jue- 
gos de KONAMI. José Ramón, 
Tlf: 34 89 59 (952) MALAGA 
CP1. 

Vendo los siguientes juegos ori- 
ginales: HERO (1700 ptas.) 
Grid Trap (1000 ptas.) y Chi- 
Uer (500 ptas.). Jesús Martín 
Díaz, Avda. Zeharkalea n.° 33 
L.°G Ermua VIZCAYA. Tlf: 
(943) 17 22 47.CP1. 
Contacto BRUNO BAUTIS- 
TA BUENO sobre su carta pu- 
blicada en el número 19-20 de 
la revista MSX-EXTRA, o con 
cualquiera que me pueda facili- 
tar su dirección. Pablo Monroy 
González. Parque Ruperto 
Chapí, 1-1 Dcha. Villena. ALI- 
CANTE. Tlf: (965) 80 14 08. 
CP1. 

Vendo SVI-328, de 80 Kb, con 
cassette, interfaz para impreso- 
ra, 2 joysticks, un cartucho de 
juego y otros muchos progra- 
mas. Además regalo libros y re- 
vistas sobre este ordenador. 
Todo por 35.000 ptas. Llamara 
José M. a Sánchez Benito. C/ Se- 
bastián Elcano, n.° 10 2.°B. La 
Luz, AVILES (33400) ASTU- 
RIAS. Tlf: (958) 57 45 14. CPl. 
Intercambio contabilidad para 
40 columnas en disco de 3.5 
pulgadas por DBASE II, 
WORDSTAR u otro programa 
de aplicación también en disco. 
Manuel Javier Lombao. Avda. 
Rubine,_13-15, 2.°C. 15004 LA 
CORUNA.Tlf: (981)27 83 42, 
de2a4óde 10a 12. CPl. 
Vendo Sony HB-55P, con ma- 
nuales, cables, caja original y 
cartucho de ampliación de me- 
moria de 16 Kb (SONY). Todo 
por 30.000 ptas. Jordi RotUan. 
Tlf: (93) 555 06 19. El Masnou. 
BARCELONA. CPl. 
Intercambio cartucho de am- 
pliación MSX de 16 Kb, cartu- 
cho de juego "Konami's Soc- 
cer" y las cassettes (originales) 
HERO y LES FLICS, por car 
tucho de ampliación de 64 Kb. 
Luis Alberto Alaiz Casas. C/ 
Avda. José Quintana s/n. Sal- 
daña (34100) PALENCIA. 
CPl. 

Cambio Alien 8, Konami's 
Tennis, Binary Land, por De- 
cathlon, Fútbol, La pulga. 
Francisco Mondejar. C/ Alcá- 
zar de Toledo 43. La Carolina, 
JAEN. (23200). CPl. 
Contacto con usuarios de MSX 



radioaficionados. Preguntar 
por José María. Tlf: 363 13 34. 
Burjasot, VALENCIA. CPl. 
Vendo curso de programación 
completa para el SPECTRUM 
por haber comprado un MSX. 
El curso está sin estrenar y 
consta de un libro muy comple- 
to y 8 cintas con programas 
para hacer coordenadas, ba- 
rras, tiralíneas, cuadriláteros, 
etc. Todo esto por 8.000 ptas. 
(valor original 13.000) Asier 
Basterretxea. C/ Loraitz bat n.° 
1 2.°B. Fuenterrabía, GUI- 
PUZCOA. Tlf: 64 42 75. CPl. 
Compro impresora de 80 co- 
lumnas para MSX. Preguntar 
por Domingo, Tlf: 379 39 03. 
Horas comida. VALENCIA. 
CPl. 

Contacto Club MSX. Te sumi- 
nistramos la más reciente infor- 
mación sobre novedades de 
programas y periféricos. ¡No 
pierdas la onda MSX! Para in- 
formarte llama al (948) 23 63 85 
(preguntar por Juan Luis) o al 
(948) 24 85 22 (preguntar por 
Ignacio), de 7 a 9 de la noche. 
CPl. 

Vendo cartuchos y joysticks es- 
peciales de COLECO: Foot- 
ball, Rocky, Zaxxon, Front 
Line, Miner y Turbo (con vo- 
lante y acelerador) por 30.000 
Ptas. Liquido revistas encua- 
dernadas del Ordenador Per- 
sonal, Computing Today y 
otras. Antonio Tenés. C/Ca- 
darso n ° 6. 28008 MADRID. 
Tlf: 248 97 51 (noches). CPl. 
Vendo ordenador Sony HB- 
55P por 35.000 Ptas. Incluyo 
ampliación de memoria de 16 
Kb, cassette y cartucho de TE- 
NIS, así como varios juegos en 
cinta. Tlf: (93) 211 42 24 de 
BARCELONA. CPl. 
Compro ordenador, unidad de 
disco y demás periféricos MSX, 
nuevos o usados. Espero ofer- 
tas. A. Dávila. Apartado 274. 
45600 Talavera (TOLEDO). 
CPl. 

Vendo ZX-SPECTRUM Plus 
con todos sus accesorios y ma- 
nuales, más interfaz Kempston 
y joystick Quick Shot II. Todo 
en perfecto estado y con emba- 
lajes originales. Revistas Mi- 
crohobby (colección completa) 
con cursos de Basic y CM., jue- 
gos originales de calidad y cur- 
so de Basic de Investrónica. 
Todo por un precio estupendo. 
Tlf: (976)5107 15. ZARAGO- 
ZA. CPl. 



Vendo SONY HB-101P impe- 
cable. Regalo 2 cartuchos por 
valor de 5000 Ptas. Todo por 
25.000 Ptas. Angel Querol. 
BARCELONA. Tlf: (93) 422 
38 82 CPl 

Contacto BIBLIOMATIC: 
Disponemos del más completo 
banco de datos que comprende 
todos los libros de informática 
editados hasta la fecha con la 
colaboración de más de 30 edi- 
toriales. Escríbenos y recibirás 
gratis el boletín bibliográfico. 
Indícanos marca y lenguaje de 
tu ordenador. BIBLIOMA- 
TIC. Apartado de Correos 495. 
12005 CASTELLON. CPl. 
Vendo VG-9020 en buen esta- 
do más 15 juegos Konami, más 
cassette Computone. Todo por 
40.000 Ptas. Llamar noche. 
(93) 431 18 72. Jesús. CPl. 
Vendo Spectravideo MSX con 
monitor y cassette Philips, más 
de 20 revistas y dos libros de 
CM por 85.000 Ptas. Alfonso 
Bueno Cuartero. C/Valencia 
16, 9. 46960. ALDAYA (VA- 
LENCIA). CPl. 
Compro monitor fósforo verde 
usado. Estudiaré todas las ofer- 
tas. Urgente. Conrado Castillo 
Serna. Apdo. 187. 02400 HE- 
LLIN (AB). Tlf: (967)301098. 
CPl. 

Vendo SONY HB-55P c/am- 
pliación Sony 64 Kb, cables 
cassette y TV, 2 manuales, 4 
cintas c/prog. y un can. Todo 
45.000 Ptas. Con cassette Sa- 




MI MISION ES PONER A 
PRUEBA TUS CONOCI- 
MIENTOS DE HISTORIA 
Y GEOGRAFIA ESPAÑO 
LAS. 
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nyo 4- PASCAL + ensambla- 
dor 50.000 Ptas. Con unidad de 
disco 3.5 pulg. y 2 discos 
100.000 ptas. Alfonso Gómez 
Gutiérrez. Apt-167. Alm uñé- 
car. GRANADA. Tlf: (958) 
630485. CPl. 

Vendo Spectravideo SV-328, 
Super Expander,' Unidad de 
disco, cassette especial y varias 
cintas y discos con juegos y 
otros programas. Precio a con- 
venir. Willy Miragall; Av. Uno 
n.° 4, 2.°, 3.° Sta. Perpetua de 
Mogoda, BARCELONA Tel. 
(93) 560 53 49 (Desde las 21). 
CP2. 

Vendo Toshiba HX-10, casset- 
te, joystick, 60 programas co- 
merciales, 40 revistas y libro 
MSX por 30.000 Ptas. Vendo 
impresora PHILIPS VW-0020 
más 60 programas (los anterio- 
res) y procesador de textos 
(TASWORD) por 30.000 Ptas. 
David de 15:00 a 20:00 C/. Lu- 
cena n.° 18. 41006 SEVILLA. 
Tlf. (954) 63 53 07. CP2. 
Vendo o cambio joystick 
Quickshot II por programas 
MSX. También estoy interesa- 
do en cartucho de ampliación 
de 64 Kb. Juan Manuel Parga 
Fraga. Tlf. (982) 22 28 77. CPl. 
Vendo Spectravideo SVI-328 
con cassette SVI-903, adapta- 
dor juegos Coleco SVI-303, 
joystick, cartuchos y cintas de 
juegos de SVI y Coleco por 
55.000 Ptas. Líquido revistas 
encuadernadas de Ordenador 
Personal, Computing Today 
otras. Antonio Tenes C/Cadar- 
so n.° 62 - 28008 MADRID. 
Tlf. 248 97 511 (noches). CPl. 
Vendo Sony HB 55P de 16Kb. 
Regalo 4 cartuchos (Road Figh- 
ter, Hyper Sports I, Ping Pong 
y Yie Ar Kung Fu). Precio a 
convenir. Andrés Ortí. Tlf. (96) 
32573 14. C/Julián Peña. n.° 16. 
VALENCIA. CP2. 
Vendo curso de BASIC MSX 
en cinta de vídeo Beta. Es origi- 
nal, marca SONY. Pido 8.000 
ptas más gastos de envío si es 
para fuera de Sevilla. Se admite 
talón conformado o giro postal. 
Alvaro Cueto Senra. C/ Madre 
Isabel Moreno n.° 10, 6.° B. 
41005 SEVILLA. CP2. 
Vendo Sony HIT-BIT 101P 
por 30.000 Ptas. 4- 20 juegos 
comerciales 4- mapas y pokes. 
Interesados llamar al Tlf: (958) 
12 32 15. GRANADA. CP2. 
Cambio Hyper Sport 1 y dos 
cintas de video VHS de inicia- 
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REGALA! 
VITAL! 



EUN LIBRO 
PARA EL 



ción al MSX por un adaptador 
de tarjeta BEECARD o los si- 
guientes juegos: Super Cobra, 
Time Pilot o Sky Jaguar. Pedro 
Sala Valdés. C/Sirio n.° 30 
28007 MADRID. Tlf: 273 00 
82. CP2. 

Vendo ordenador Philips 
MSX, 20 cintas con 80 juegos 
comerciales, 200 revistas y li- 
bros, v un joystick Canon. 
Todo por sólo 19.900 Ptas. José 
Luis Rojano, C/ Camorro, 2, 
7.° D. Alarcón. MADRID. 
CP2. 

Vendo VG-8020 en buen esta- 
do, más de 15 juegos Konami, 
más cassette Computone. Todo 
por 40.000 ptas. Llamar por la 
noche. (93) 431 18 72. Jesús. 
CP2. 

Cambio programa Jet Fighter 
de Aacksoft original con ins- 
trucciones en español por uno 
de los siguientes juegos: River 
Raid, Cazafantasmas u otros. 
José Manuel Beneitez Vega. 
Urb. Maripins, Chalet n.° 16. 
43840 Salou TARRAGONA. 
Tlf: 37 13 39 (977). CP2. 
Vendo ordenador Spectravi- 
deo SV-328, data cassette SV- 
904, adaptador a MSX SVI- 
606, un cartucho y muchos pro- 
gramas en cinta por 45 .000 ptas 
negociables. Arturo Abós. Tlf: 
(91)759 11 56. CP2. 
Intercambio juegos (HERO, 
Soccer, Profanation, Alien 8, 
Hyper Rally, Ghostbusters, 
Hyper Sports I, II y III, etc. Po- 
seo los mejores de Konami, Ac- 
tivision y Dinamic. Tengo jue- 
gos de arcade, aventura, com- 
bate espacial y más de 10 simu- 
ladores de vuelo (F-16, North 
Sea Helicopter, Flight Simula- 
tor 737, etc.). Interesados escri- 
bir a Héctor Martín Pérez. Cra. 
Gral. de San Miguel 11, 1.°. 
Granadilla de Abona. TENE- 
RIFE (Islas Canarias). CP2. 
Cambio juego DECATHLON 
de Activision por alguno de los 
siguientes: Ping Pong, River 
Raid, Hyper Sport II o Super 
Cobra. Siró Garrido Padró. C/ 
Mugakoa D 10.° izda. Portuga- 
lete, VIZCAYA. CP2. 
Vendo ordenador y lápiz ópti- 
co SANYO completamente 
nuevos, con garantía de 6 me- 
ses. Regalo joystick y más de 30 
juegos. 45.000 y 19.000 respec- 
tivamente. José Antonio Quin- 
tana. C/ Fuencaliente, 3, 1.°. 
46023 VALENCIA. Tlf: 362 94 
90. CP2. 

Vendo YAMAHA CX5M - 
Computer Music, con sintetiza- 
dor de sonido DX. Ordenador, 
teclado profesional, cartucho 
de composición, cartucho con 
sonidos y cartucho almacén de 
datos. Todo 130.000 ptas. Jor- 
di.C/Balmes 448, 08022 BAR- 



CELONA. Tlf: 417 42 48. 
CP2. 

Cambio AMSTRAD CPC- 
6128 con pantalla de fósforo 
verde, con todo el paquete de 
discos y programas que trae 
consigo y la garantía de Indes- 
comp por un SVI-738 
X'PRESS MSX con pantalla, 
sin cobrar ni pagar nada. Poco 
uso. Tengo varios programas 
en disco; Ajedrez 3D Grand Prix 
3D y otros, Rallyn II, La pulga, 
Skyfox, Spitfire-40, Mini Offi- 
ce, Contabilidad doméstica y 
varios más todos en discos. Mi- 
guel Fernández Palomar, Pza. 
Gutiérrez Somprún, n.° 1, 
l.°A. 47012 VALLADOLID. 
Tlf: 39 81 60. CP2. 
Cambio ordenador Toshib;i 
HX-10 en perfecto estado de 
uso por el Spectravídeo 728 o 
por otro ordenador MSX que 
tenga las 2 entradas de tipo car 
tucno, tales como el Canon 
V20, Sony 75 P, Philips VG 
8020, o Dynadata. Tlf: (91)401 
28 42. Preguntar por Guiller- 
mo. CP2. 

Compro todo tipo de progra- 
mas originales. Si tienes alguno 
que vender llámame al (93) 387 
46 1 1 o escríbeme a c/ Agueda 
Mompel, 30, 4.° 1. a Badalona. 
BARCELONA. CP2. 
Vendo urgente ordenador SVI- 
328 MKII, datacassette SVI- 
904, 5 cassettes de juegos (Sasa, 
Telebunny...), más de 40 pro- 
gramas, joystick Quickshot II. 
manuales. Todo en perfecto es- 
tado y por sólo 38.000 ptas. Pe 
dro Luis Gomis Faus. C/ Vir 
gen Murta, 47. 46600 Alcira. 
VALENCIA. Tlf: (96) 241 43 
64. CP2. 

Vendo Sony 32 Kb más 50 jue- 
gos por 32.000 ptas. Angel Sán- 
chez. C/ 4, n.° 1. Tudela del 
Duero. 47320 VALLADO- 
LID. Tlf: (983) 52 01 16. CP1. 
Vendo impresora Philips MSX 
VW-0020 de 80 columnas. Tie- 
ne poco tiempo y el precio sería 
a convenir. César Toquero Ló 
pez. C/ Santucho 73-4-C. 
48006 BILBAO. VIZCAYA. 
Tlf: 433 68 24. CP2. 
Contactos. Si deseas apuntarte 
a un club MSX escribe a Oscar 
García Linares, Granada. O 
Adelfa, 3, 1. a esc, l.° A. 18006 
GRANADA. CP2. 
Cambio juegos con chicos/as 
de Barcelona y alrededores. Po- 
seo los mejores de KONAMI 
(Knight Mare, Hyper Sports 
III) Ultímate (Gunfrisght, 
Knight Lore y Camelot Wa- 
rriors por otros juegos. Intere- 
sados mandar lista o llamar a 
Juan A. López Luque. C/ Alva- 
rado n.° 14, I o 2 a . 08033 BAR- 
CELONA. Tlf: 350 71 78. 
CP2. 




UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 



Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n. u 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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El basic paso a paso i 



¡por Willy Miragalli 



PRINT 
E INPUT (II) 



He aquí la segunda entrega de este inte- 
resante curso de BASIC. Esperamos 
que hayáis estudiado a fondo la primera 
parte y que saquéis el máximo provecho 
de ésta. 



1.6. INPUT 

Como estoy seguro recordaréis, aca- 
bamos la primera parte de esta lección 
con un programa que calculaba el área 
de un triángulo; pero queríamos que 
pudiese calcular el área de cualquier 
triángulo. Si no recordáis lo tratadlo en 
el número anterior os aconsejo que lo 
repaséis, ya que haremos mucho uso de 

Para conseguir que el programa sea 
diferente en cada pasada, hemos de ha- 
cer que los datos correspondientes a la 
base y a la altura (BA y AL) vengan del 
exterior. Eso es lo que vamos a lograr 
con el comando INPUT. 

La sintaxis de INPUT es la siguien- 
te: 

INPUT "texto explicativo ";var 
Este comando permite que la asigna- 
ción a una variable pueda definirse por 
el usuario exterior al programa. Vamos 
a ver un ejemplo. Imaginemos que te- 
cleamos el siguiente programa (marca- 
remos en negrita las respuestas del or- 
denador). 

1 INPUT "Escribe el valor de la va- 
riable A"; A 
RUN 

Escribe el valor de la variable A? 25 
Ok 

¿Qué es lo que ha ocurrido? En la 
primera (y única) línea de este progra- 
ma, le hemos indicado al ordenador 
que pregunte A. Quede bien claro des- 
de el principio que el ordenador no 
pregunta lo que hay entre comillas, 
sino la variable nombrada al final de la 
línea. Estudiemos la línea por partes: 

INPUT — Indica al ordenador 
que debe preguntar algo 
"texto" — Informa al usuario qué va- 
mos a preguntar. 

var — Indica al ordenador qué es 
lo que debe preguntar. 

El texto, repetimos, es sólo aclarati- 
vo, v no importa lo que escribamos en- 
tre las comillas. El siguiente programa, 
pregunta A, como el primero; pero, eso 
sí, desorienta totalmente al que está 
utilizándolo. 



1 INPUT "Escribe el valor de la va- 
riable B"; A 

Me comentan por aquí que aún no 
hemos dicho qué es lo que hace exacta- 
mente el comando INPUT. Evidente- 
mente, asigna el valor tecleado por el 
usuario a la variable indicada. 

Lo entenderéis mejor si modifica- 
mos, el programa de cálculo del área de 
un triángulo. 



1 INPUT "BASE=";BA 

2 INPUT "ALTURA=";AL 

3 AR=BA*AL/2 

4 PRINT AR 

La primera línea muestra en pantalla 
el mensaje BASE= ?, a lo que debemos 
responder con el valor deseado. Te- 
cleemos 25, por ejemplo. En el mo- 
mento en que pulsemos la tecla RE- 
TURN (para indicar al ordenador que 
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hemos acabado de escribir el número), 
la variable BA tomará el valor 25 (ya 
que es este el valor que hemos escrito). 

Lo mismo ocurrirá con la variable 
AL en la línea 2. Las líneas 3 y 4 funcio- 
nan de igual forma que en el programa 
del mes pasado. La línea 3 calcula el va- 
lor de BA multiplicado por AL (su va- 
lor) y dividido por 2, y lo almacena 
dentro de la variable AR. Notad, ya 
que lo haremos de aquí en adelante, 
que nos referimos al valor de una varia- 
ble cuando queremos decir el número 
contenido en esa variable. 

La línea 4 simplemente escribe el va- 
lor de la variable AR. 

Con esto queda explicado el funcio- 
namiento de la instrucción INPUT. 

Queda un pequeño detalle por citar 
(espero que no os líe demasiado) y es 
que podemos unir varios INPUT, con- 
siguiendo así uno múltiple. La forma 
de hacerlo es la siguiente. 

INPUT "Entra la BASE y la ALTU- 
RA";BA,AL 

Recordad que entre el texto y las va- 
riables debe ir un PUNTO Y COMA, y 
que entre las variables (podéis poner 
tantas como queráis) debe existir una 
COMA. El texto debe ir entre COMI- 
LLAS, porque debe aparecer literal- 
mente en la pantalla. 

No os recomendamos que utilicéis 
este último formato, porque puede in- 
ducir a error al usuario del programa. 
La base y la altura, en este caso, deben 
entrarse desde el teclado EN EL OR- 
DEN INDICADO, y separadas por 
una COMA. Por último, resulta mu- 
cho más cómodo y elegante separar los 
dos INPUT (tampoco cuesta tanto es- 
cribir unos caracteres más). 

TEMA 2: TOMANDO 
DECISIONES (I) 

Gracias a la primera lección ya so- 
mos capaces de realizar pequeños pro- 
gramas. Pero la verdadera potencia del 
ordenador no aparece hasta que no ha- 
cemos condiciones. 

La realización de condiciones nos 
permite "decirle" al ordenador cosas 
como: (tomamos como ejemplo la ta- 
bla de récords de un videojuego). 

SI la puntuación es mayor que el ré- 
cord ENTONCES el nuevo récord es 
la puntuación. 

Traducir esto a lenguaje BASIC no 
es nada complicado. 

2.1. IF... THEN... 

La estructura IF... THEN... es equi- 
valente a la que hemos usado en caste- 
llano para enunciar el ejemplo de la ta- 



bla de RECORDS. Precisamente IF en 
inglés significa SI y THEN significa 
LUEGO, o ENTONCES. 

No queda más que sustituir: 

IF puntuación mayor que récord 
THEN nuevo récord es puntuación. 

Pero hay algo raro en esta línea. No 
parece que el ordenador pueda enten- 
der esta línea (perfectamente clara para 
nosotros). 

El ordenador almacena datos en las 
variables. Podemos probar, pues, a uti- 
lizarlas en este caso. Supongamos que 
en la variable PUNTOS tenemos la 
cantidad de puntos conseguidos, y que 
en la variable RECORD tenemos el úl- 
timo récord obtenido. La línea se 
transformaría en algo como esto: 

IF PUNTOS > RECORD THEN 
RECORD = PUNTOS 

Fijaos en que el operador > signifi- 
ca mayor que, significado que no nos 
debe resultar nada extraño. 

Si se cumple la condición enunciada 
entre el IF y el THEN, se realizará la 
operación que sigue al THEN. En este 




caso, se asignará a la variable RE- 
CORD el contenido de la variable 
PUNTOS. 

2.2. Operadores lógicos 

Con la estructura IF... THEN... po- 
demos utilizar los denominados opera- 
dores lógicos. Al igual que disponemos 
de los operadores aritméticos (suma, 
resta, producto, etc.) para las operacio- 
nes de asignación, disponemos de los 
operadores lógicos para las operacio- 
nes de comparación. 

Los operadores lógicos más impor- 
tantes utilizados por los MSX (aunque 
hay más, de los que ya hablaremos), 
son: 

> Mayor que 

< Menor que 
= Igual a 

> = Mayor o igual que 

< = Menor o igual que 
O Diferente de 

2.3. Un programa con IF... 
THEN... 

Vamos a realizar un programa que 
ponga en práctica lo que hemos apren- 
dido hasta ahora. 

El programa, en primer lugar, nos 
pregunta nuestra edad. Dependiendo 
de la edad, el ordenador escribirá dife- 
rentes textos. Evidentemente, este pro- 
grama (así como los otros que hemos 
realizado anteriormente) no sirve para 
nada; pero no tengáis prisa. Todo lle- 
gará... 

1 INPUT "¿Cuántos años tie- 
nes" ;EDAD 

2 IF EDAD<5THEN PRINT 
"Siempre es bueno comenzar pronto." 

3 IF EDAD>85 THEN PRINT 
"Nunca es tarde" 

4 IF EDAD <>25 THEN PRINT 
"No tienes 25 años." 

Repasemos línea por línea lo que 
hace este programa. En primer lugar, 
nos pregunta "¿Cuántos años tienes?". 
Fijaos que no hemos escrito el interro- 
gante de cierre, ya que lo pone automá- 
ticamente el ordenador (si le decimos 
que pregunte algo es lógico ¿no?). El 
número que nosotros escribamos se al- 
macenará en la variable EDAD. 

En las siguientes líneas, el ordenador 
escribirá uno o varios textos según sea 
la edad que hayamos introducido. 
Creo que no hay ninguna complica- 
ción. 

En el próximo número hablaremos 
de cómo hacer que el ordenador nos 
pregunte palabras o incluso frases y 
realizaremos nuestro primer progra- 
ma, si no útil, sí al menos divertido. 
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El basic paso a pasoi 



EJERCICIOS: 

L- Realizar un programa que pida al 
usuario el precio de un dólar en pesetas 
y escriba en pantalla el precio de dos, 
diez y quinientos dólares. 

2 - Realizar un programa que pida al 
usuario el radio de una circunferencia y 
escriba su área. El área de una circunfe- 
rencia sigue la fórmula: AR=2*PI*ra- 
dio, donde PI es 3.141592654... (fijaos 
que el ordenador utiliza el punto y no 
la coma para indicar los decimales). 

3- Por último, realizar un programa 
que pida al usuario las ganancias y las 
pérdidas de una empresa y escriba en la 
pantalla si la empresa ha ganado o per- 
dido dinero. (Pista: Debéis, por su- 
puesto, utilizar la estructura IF... 
THEN...). 

SOLUCIONES A LOS 
EJERCICIOS DEL MES 
ANTERIOR: 

i - Para calcular la operación: 

2 5 + 3 (56-7) 
5(198-189) 

debemos escribir en el ordenador: 

PRINT (25 + 3*(56-7))/(5*(198- 
189)) 

He aquí algunos de los errores que 
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tal vez hayáis cometido: 

- Olvidar PRINT: Si no le decimos 
al ordenador que lo escriba, no sabrá 
qué hacer con el resultado de la opera- 
ción. 

-Olvidar paréntesis: Es muy fácil ol- 
vidar paréntesis, sobre todo al princi- 



pio. Debéis tener en cuenta la priori- 
dad entre los diferentes operadores. 

- Olvidar *: Mientras en matemáti- 
cas no poner ningún signo significa 
multiplicar, en informática no se supo- 
ne nada. 

Hay que indicar todas las operacio- 
nes. 

2 - La resolución de esa ecuación de 
segundo grado se hacía de la siguiente 
forma: 

A= 1 
B = 2 
C = -3 

PRINT (-B+(tr2-4*A*CHl/2))/ 
(2*A) 

Los errores que hayáis podido come- 
ter son similares a los del ejercicio ante- 
rior. 

3 - Daremos a continuación 10 posi- 
bles nombres de variables. Las vues- 
tras, por supuesto, pueden ser total- 
mente distintas. 

PUNT, CARGAS, A, B, C, DI, 
ALFA3, BUCLE, NUNCA, MSX... 

4 - El programa que realiza el cálcu- 
lo del área del rectángulo es: 

1BA=12 

2 AL=56 

3 AR=BA*AL 

4 PRINT AR 

Podéis haber olvidado los números 
de línea. 

Perdonad si os habéis equivocado en 
otra cosa; pero ya no se me ocurre nada 
más. 



SUSCRIBETE A ^ 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 
Calle 



Ciudad Provincia 

D. Postal Teléfono 



Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/^Roca i Batlle, 10-12 - 08023 Barcelona 
Tarifas: España por correo normal Ptas. 2.250,— 

Europa por correo normal Ptas. 2.600,— 

Europa por correo aéreo Ptas. 3.250,— 

América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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f Nombre y apellidos 
I Dirección 
I Población 



CP 



| □ Tutor Basic Ptas. 3.500- 
i □ SweetAcorn Ptas. 5.200- 
I □ Bam Stormer Ptas. 5.200- 



Prov. 

□ Adaptador Bee Card Ptas. 2.850- 

□ Backgammon Ptas. 5.200 - 

□ Chock'n Pop Ptas. 5.200- 



Tel. 



□ Adaptador Softcard Ptas. 2.850 - 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ptas. 5.200- 

I Gastos de envío por cada producto 1 00 - pts. Remito talón bancario de pts. a la orden de Manhattan 

Transfer, S.A. Enviar a MSX CLUB de MAILING. Roca i Batlle 10-12 bajos - 08023 Barcelona. 



MSX aplicacióni 



iMarcel-lí Miret ZAP STUDL 



LA MUSICA 




Otra de las fenomenales aplica- 
ciones de la gama MSX, es su 
capacidad de almacenar, pro- 
ducir v trabajar con sonidos musicales. 

En la actualidad los MSX están sien- 
do adoptados por gran cantidad de 
grupos musicales o de espectáculos 
que requieren este tipo de cobertura. 
Así lo demuestra que grupos, de reco- 
nocido prestigio, como son LA FURA 
DELS BAUS, EL HOMBRE DE PE- 
KIN, DECIBELIOS, etc.. lo estén 
aplicando directamente en la elabora- 
ción de sus discos y en sus actuaciones 
ante el público. 

A partir de los años 60, la música ha 
evolucionado al mismo tiempo que la 
electrónica. El instrumento común, 
con apenas una caja de resonancia y 
unas cuerdas de tripa de cerdo o de 
metal, se ha visto transistorizado en 
menos de una década. En los 80, los 
instrumentos ya son capaces de utilizar 
sus propias memorias. 

Sin duda, esta capacidad de sinteti- 
zar el sonido, se desarrolla al mismo 
tiempo que se avanza en la moderniza- 
ción de los ordenadores, permitiendo a 
los instrumentos que adopten memo- 
rias y efectos sólo posibles a través de la 
microinformática. Los mismos fabri- 
cantes de instrumentos invienen en el 
diseño y producción de sus propios or- 
denadores (YAMAHA). 

Los ordenadores, por sus caracterís- 
ticas, permiten funciones que los ins- 
trumentos no pueden satisfacer por sí 
mismos, como son, la capacidad de 
memorizar todas las composiciones 
que se le programen, imprimirlas sobre 
papel, o componer utilizando varios 
instrumentos a la vez, pudiendo seña- 
lar la frecuencia y el ritmo de cada par- 
titura. 

LA FURA DELS BAUS 

Muchas de las personas que lean este 
artículo, pueden plantearse la siguiente 
duda: ¿por qué grupos musicales que 
mueven consigo una infraestructura 
enorme utilizan ordenadores de la pri- 
merea generación? La respuesta la dan 



YAMAHA CX-5M 

ellos mismos en las entrevistas que les 
hemos planteado, pero antes, quisiera 
informar a los no muy entendidos, de la 
historia y actividades de dichos grupos. 

LA FURA DELS BAUS , empezó sus 
andanzas alrededor del año 79. Al prin- 
cipio sus actividades se desarrollaban 
dentro de las fiestas populares, reali- 
zando pasacalles, en los que ya utiliza- 
ban música. Después su propio ingenio 
e iniciativas, les llevaron a ir engen- 
drando su actual forma de entender el 
teatro. Sus espectáculos actuales son 
viscerales y heterodoxos. No actúan 
dentro de escenarios normales, sino la 
mayoría de veces, en espacios abiertos 
o en antiguos y abandonados locales. 
Su propia forma de entender el teatro, 
coa raíces en el performance, no ha 
sido un obstáculo en su trayectoria, 
sino muv al contrario, les ha abierto la 
puerta de la fama y la popularidad, te- 
niendo gran éxito en cualquier rincón 



Los ordenadores MSX no 
son tan domésticos como 
aparentan ser. Existen nume- 
rosas posibilidades profesio- 
nales para estos aparatos. He 
aquí una de ellas. 



del mundo. 

Micki el ex-puma y Caries Padrissa, 
son los responsables de la parte musi- 
cal del grupo. Desde hace dos años es- 
tán utilizando el MSX-YAMAHA 
MUSIC COMPOSER en sus activida- 
des dentro de LA FURA DELS BAUS. 

Ahora están muy atareados prepa- 
rando un disco, pero aún así, han acce- 
dido con gusto a explicarnos sus expe- 
riencias con el ordenador: 

ENTREVISTA CON LOS 
MUSICOS 



-¿Cuándo decidisteis poneros a ha- 
cer música con el MSX? 
Micki: 

-A partir de nuestro segundo espec- 
táculo, SUS O SUS. En ACCIONS, ha- 
bíamos empleado sintetizadores, como 
el ROLAND y la caja de ritmos YA- 
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MAHA. Entonces descubrimos que 
había un aparato, que aparte de aho- 
rrarnos mucho trabajo de composi- 
ción, nos podía servir, durante las ac- 
tuaciones en directo, para hacer sonar 
más instrumentos de los que nosotros 
pudiésemos tocar con cuatro manos. 

En ese momento nada más éramos 
dos músicos, por lo tanto, con todo el 
sistema MIDI, podíamos conseguir 
que hubiera un sonido que estaba muy 
bien, por no decir sinfónico. 

-¿Qué ventajas le habéis encontra- 
do alMSX YAMAHA Music Compo- 
ser? 

Caries: 

-Es nuestro primer ordenador. Las 
ventajas que tiene son, que te salen las 
partituras, puedes programarlo todo. 

-¿Cómo definís ¡a música que ha- 
céis en vuestro espectáculo? 

Caries: 

-Es tecno-etno-bit. Una música 
donde intentamos mezclar lo más pri- 
mitivo con la tecnología más punta y el 
sonido más cuidado. 

Micki: 

-Hay influencias de todos los estilos, 
porque los músicos provienen de di- 
versos campos. En el momento en que 
Ovidi Vidal empezó a colaborar con 
nosotros se incorporaron elementos 
del funky y del rocíe, un tío muy vital, 
que nos daría mucha espontáneidad en 
los temas. Después, también nos ayudó 
eficazmente Leo Marinho, que nos 
preparó los primeros programas del 
MSX, porque nosotros no estábamos 
preparados, dándonos las claves para 
poder utilizarlo. 

Leo Marinho venía de historias tec- 
no, donde se usan mucho los ordena- 
dores y los sintetizadores. La fusión de 
estas cinco o seis disciplinas, dio como 
resultado lo que hacemos ahora. Pero 
todo esto, siempre va en función del es- 
pectáculo, que quería ser un espectá- 
culo lujurioso, con una historia muy vi- 
tal, étnica, visceral, casi de ritual primi- 
tivo. 

-¿Se adapta bien el MSX a vuestras 
necesidades musicales? 
Caries: 

-El Yahama que nosotros tenemos 
es un aparato que ya está pasado. No 
quiero decir que sea malo, pero ahora 
con los nuevos ordenadores que han 
ido apareciendo se ha quedado peque- 
ño. Además nuestro modelo, no fun- 
ciona con diskette como el último Ya- 
maha Music-Composer, sino con cas- 
sete. Los sonidos internos no los pode- 
mos usar demasiado porque se nota 
mucho que son de ordenador. Hace 
dos años estaba muy bien, ahora hay 
más ordenadores, pero también son 
más caros. 



-¿En directo también lo hacéis so- 
nar, o sólo lo utilizáis para trabajos de 
estudio? 

Caries: 

-En directo, claro. En directo es 
cuando cumple más sus funciones. En 
estudio Jo trabajamos mucho, pero en 
directo nos ahorra el tener que llevar 
instrumentos y el peso subsiguiente de 
los aparatos de MIDI. 

-¿Estáis usando el Music-Compo- 
ser en la grabación de vuestro disco? 

Micki: 

-Of course! . Naturalmente, es por la 
sencilla razón de que estamos utilizan- 
do todo lo relativo a samplings y el 
MSX, es el que aglutina toda la infor- 
mación. Con el sistema MIDI, es el que 
da respuesta a todos los sintetizadores 
que tocamos. 

-¿Qué pegas le habéis encontrado? 

Caries: 

-De entrada es un aparato que no te 
dice nada, es silencioso; no puedes co- 
municarte con él. Cuando te equivocas 
de tecla, (a nosotros nos ha dejado col- 
gados más de una vez, porque trabaja- 
mos con mucho polvo, nace mucho ca- 
lor) entonces hace el tonto. Es un apa- 
rato que no te puedes desfogar con él. 
A veces hemos estado a punto de pe- 
garle un hachazo. En fin, cuando me 
preguntabas por las virtudes te he con- 
testado con los defectos, entonces aho- 
ra te diré las virtudes: Dentro de todo 
se porta bien. Tiene ocho canales, aun- 
que otra pega es que cuando quieres 
oír algo has de empezar por el princi- 
pio. 

-¿Qué otro uso hacéis del ordena- 
dor? 
Caries: 

-Para dibujar, pero no mucho por- 
que la televisión que tenemos cansa 
mucho la vista. Si tuviéramos un moni- 
tor bueno, quizá nos hubiésemos ani- 
mado, pero nuestra tele hace mucho 
daño a los ojos. 

Micki: 

-Además, hay que tener en cuenta 
que estamos casi todo el año de gira. 
En gira es muy dificultoso usar el orde- 
nador y cuando vuelves aquí el trabajo 
que nos ocupa es el de composición y 
grabación. Hasta el momento lo hemos 
usado en eso, grabar y componer. 

-Por último, ¿qué programas de- 
searíais que incorporasen los fabrican- 
tes en sus próximos modelos? 

Micki: 

-Un programa de diversión sexual, 
alguna historia que sacara del tedio ge- 
neral de las actuaciones, una mano que 
te tocara el culo o algo así... 

Caries: 

-Hablando en serio, a mí me gusta- 
ría, que hubiese un programa que es- 



cribiera música en tiempo real, o sea un 
procedimiento que permita extraer 
una partitura de lo que tocas con el te- 
clado. 

Una vez conocida la apreciada opi- 
nión de los miembros musicales de LA 
FURA, también hemos querido poder 
contrastarla con otro músico, Inaki 
García. Actualmente ha acabado de 
arreglar el último disco del grupo DE- 
CIBELIOS. 

Este grupo se dedica a la música 
postpunki, sus temas están llenos de 
vida cotidiana y crítica social. Inaki 
como arreglista no toca en directo con 
el grupo, pero como especialista en 
composición es imprescindible a la 
hora en que el grupo tiene que presen- 
tar sus canciones a la empresa discográ- 
fica. Por su condición de compositor es 
una de las personas más indicadas para 
darnos su opinión sobre el funciona- 
miento v respuesta del MUSIC COM- 
POSERMSX YAMAHA: 

-¿Cuál es el motivo de que utilices 
MSX en tus composiciones musica- 
les? 

-El precio total de un ordenador con 
teclado. Un sintetizador teclado con 
posibilidades de programas sale bas- 
tante caro. De todas formas el MSX, 
con sus funciones, permite muchas 
mas aplicaciones y sale mucho más ba- 
rato. 

-¿Qué diferencias encuentras entre 
el ordenador y los instrumentos? 

-El instrumento es una terminal en 
la cual expresas tu sensibilidad. El or- 
denador es una gran ayuda para mane- 
jar datos. 

-El sonido producido por el ordena- 
dor, ¿crees que es de suficiente cali- 
dad? 

-Sí, puedes pregrabar 46 sonidos 
programabas, los almacenas en el dis- 
kette y dispones de 46 instrumentos; 
sólo puedes utilizar 8 a la vez, pero ya 
es suticiente, y además, a través de un 
MIDI, puedes conseguir envolventes y 
conexiones. Siempre es un instrumen- 
to auxiliar, en cuanto se amplía la con- 
cepción del equipo. 

Creemos que el MSX es un ordena- 
dor que está consiguiendo sus objeti- 
vos cíe funcionamiento y aplicaciones. 
A través de estas entrevistas se ha podi 
do comprobar que los músicos se están 
tuteando con él, lo usan ya rutinaria- 
mente, y se sienten inquietos por sus 
evoluciones. Posiblemente pronto ne- 
cesiten ordenadores que hagan más co- 
sas y más complicadas, pero no tienen 
or qué preocuparse; mientras ellos 
acen las delicias de los mortales con 
sus sonidos, los técnicos de programa- 
ción velan por ellos desde el último rin- 
cón de sus laboratorios. 
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Programai 



Por Darío García» 



CARGADOR 
MAD JUMPER 



Cargador del programa 
MAD JUMPER, publicado 
en el anterior número de 
nuestra revista. El juego está 
servido. 



Os presentamos ahora la segunda parte del programa MAD JUMPER, de Darío García cuya primera apareció en el 
número anterior de nuestra revista. Por un lamentable accidente, no apareció ninguna reseña indicando que se trataba 
sólo de una de las dos partes del programa. 

El fragmento que publicamos hoy es el cargador del programa principal publicado en el número anterior. 

Vamos a comentar los pasos necesarios para conseguir ejecutar el programa completo. 

1- Copiad el cargador que aparece a continuación. Verificadlo con el TEST DE LISTADOS, ya que el programa 
contiene rutinas en ensamblador, y un error podría provocar que se borrase todo el programa. 

2 - Una vez verificado el programa, grabadlo en una cinta virgen con: CSAVE "MADLR" 

3 - Verificad la grabación con CLOAD? 

4.- Copiad el programa principal publicado en el número anterior de nuestra revista. 

5 - Verificadlo también con el test de listados. Una vez corregidos todos los errores, debéis grabarlo, a continua- 
ción del cargador, con el comando: 

SAVE "MADJMP" 
Notad que la primera parte se graba con CSAVE y la segunda con SAVE. 

6 - Una vez ejecutados todos estos pasos podemos pasar a jugar con el programa. 

Para cargarlo, utilizad CLOAD. Una vez cargado podéis hacer RUN. El programa dibujará la pantalla principal del 
juego, y cargará la segunda parte del programa. Debéis estar atentos para conectar el cassette en el momento apropiado. 
Ya podéis jugar. Para moveros utilizar O = izquierda, P = derecha, A = abajo, Q = arriba. Y nada más. ¡A saltar! 
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111 DRAW n e2ule3u2elu4e2u2elu3e3rle2r2e2 

r3elr2Btr2«2r3f 2r tf lr3f Ir3e2r4elr lf 2r if 3 

r2flr2f2d2f2d3llr2f3r2e^ielr3elr3flr2fl 

110 DRAW "bB0.68" 

120 DRAW "r2elr3e2r4s2r5Hr3f2r5flr3elr4 
Iir3i2r4i2r3tir3i2r2f2d293d2g2d3g4dtf2r3 
f Ir 4elu3e2u 1 e3r 4elr 5e Ir 2e Ir 5t3u2e3r 1 " 
130 DRAW B r3elr4flr5flr4f2dH2r6elr3elr4 
Ílr3elr4elr6f2r5elr6elr2elr5e2rle3r2e2r2 
B2r2flr3Hr2f2r4Hr2etr3e!r2flr3f2r3" 
1*0 DRAW "elr2flr4flr3eH3d2f3r4elr2f2r3 
f2" 

150 RflINT '0,60), 15 
161 : -:NT (255, 60). 15 
171 DRAW a fiMffT 

181 DRAW V3tif6tlf5flr4f.tr3t2r2*3r2f3rl 
f7rif3dlf6rif5r2f2r3ftr4flr5tlr3e3rli3rl 
Blr2elr3elr5flr4flr2f3r2f3d2921l9412fl3d2 
g2d8c7d7fld7Ud3f2dH5rif2r3tl" 



!"0 DRAW V 2f 3r 3f 2rSf Ir99tlr2t2r2t3rl«4u 

le3" 

200 DRAW a bml06, !47r 150" 

210 PAINT (150,1505,7 

223 LINE (16,130)-(95,130),9,BP 

231 W X=0 TO 12:S$= M -:F0ft Y=0 TO 3l:RE 

AD A:5$=5$+CHP$(A) :NEXT Y: SPR ITE$ ( X ) =5$ : 

NEXT X 

240 DATA 127.255,192,192,192,192,192,192 
.: : :,:':.! c :.P2.1 ( '2,l í '2. 255. 127,254. 255 

255. 254, 0,3,3,3 

,:.:: 7 , 127,127,127,127.127,3,3,3,3.0.0,0 
,128. 1'2. 224, 240, 248 

251 DATA 252,252,248,240,224,192,128,1,1 
,7, 11, 23,22, 22, 11.7, 3, 1,1, 3, 6, 5, 5, 5, 6, 12 
5,: : :,, ? ,::^.:9e.l2c,l ( ?0,204,128.128,192, 
96,160,160,176,203,6,2,2,7,3,1,0,1,1,3,3 
, 1,3,3, :. 127, 208. 232, 232. 104. 152, 240, 0,2 
24, 1=2,192, 128,0, 128 

260 DATA 225,243.254,6.2,2.7,3.1,0,1,1,3 
,0,3.:. 123,7,1, 208, 232. 232. 104, 152, 240,0 
.::-.l 3 2, 128, 0.128, 192, 225, 227,62, 6, 2, 2, 
7,3,1,0,1,3,0,3,115.15,1.0,0,208,232,232 
.104,152,240,0,224,192,0,128,192,224.225 
270 DATA 59,6,6,2,2.7,3.1.0,1,1,3,0,3,3, 
3.7,120,208,232,232,104.152,240,0,224,19 
2,192,1, 129,227,254,224,1,6,2,2,7,3,1,1, 
1,1,3,0,3.3,3.14,112,208,232.232,104,152 
,240,0,224,224,193,3,198,248,192,0,0,0,2 
27 

280 DATA 243. 21", 219, 219, 219, 219, 219,219 
,243,227,0,255,0,255,0,209,219,31,31,31, 
223.219.27,27.219,219,0,255,0.255.0,0,0, 
2,0,0,8,0,32,0,95,67,1,1,1,3,0,0,16,1,0, 



68,0,0,8,152,25,189,239,117,183,255.0.0, 
0,1,16,0,72,0,0,144 

290 DATA 143,220,212,246,155.255,0,0,0,0 

,0,72,0,4,128,16,2,0,80,232,192,138.0,0, 

0,0,0,32,0,0,8,0,2,32,0,18,31,127,0,0,0, 

0,0,16,0,0,68,0,16.0,2,0,176,254,0.0,0,0 

,0,0,0,32.0,1,8,0,0,32,4,0,0,0,0,0,0,0,0 

,64,0,0,36,0,128,8,0,0 

300 PDKE iHEA61,l<HC9:P0KE JtHA82E,ttHC9 

310 POR X=&HA847 TO &HA847+24:READ A$:P0 

KE X, VAL("&H-+A$) :NEXT X 

320 DATA 21, 60, BA, 11, 00, 00, 01. 00, 18, CD, 5 

C. 00, 21. 60, D2.il, 00, 20, 01. 00, 18, CD,5C, 00 

,C9 

330 POR X=?..HA860 TO &HA860+24:READ A$:P0 

KE X,VAL("f*H"+Ai):NEXT X 

340 DATA 21, 00, 00, 11, 60, ba, 01, 00, 18, CD, 5 

9. 00, 21, 00, 20, 11, 60, d2, 01, 00, 18,CD, 59. 00 

,C9 

350 DEP USR=*.HA860:A=USR(0) 

360 POR X=!(HEA61 TO ÍHEA61 + 12: READ A$:P0 

KE X, VAL( n « t H B +A$) :NEXT 

370 DATA 21, 6E,EA,11, 00,38,01, A0, 01, cd, 5 

C00.C9 

380 POR X=iHA900 TO &HA900+ 12: READ A$:P0 

KE.X,VAL("ScH"+A$):NEXT 

390 DATA 21.00.38,ll,6E,EA,01,A0,01,cd,5 

9,00,C9 

400 DEP USR=Í<HA900:A=USR<0) 
410 RUN "CAS:" 



TEST DE LISTADO 
en la página n.° 30 
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Programai 



■Por D. Garcíai 



DIAGRAMA 



Representa gráficamente 
aquellos datos numéricos 
que desees, en dos formatos 
distintos: gráficos lineales o 
de barras. 



10 K=0 

20 tutttumuutu 



30 'I 
40 »l 
50 't 
60 'I 
70 '< 
80 '$ 
90 't 
100 't 
110 'I 
120 'I 
130 '< 
140 't 
151 t 



I 

I 

IPIAGRAMS 
Ibyl 
AltN SOFT 



(0 

Alexis Luna 
Néstor Nocí 



I60 tmutmmttm 

170 CLS:C0L0P 12, 15, 15: K=0: KEYOFF 
180 LOCATE 1 0 , 20 : PP I NT " ñflSTER DIAGRAMS 



190 PRINT" Este programa te va a ayud 
ar en la tarea de trazar gráficas, tan 
to lineales como de barras." 
200 PRINT: PRINT" Introduce todos los d 
atos con que quieras hacerlas. y el ord 
enador te las confeccionara automati 
camente. Si quieres ver otro tipo 
de gra- f i ca (e j : Si es lineal ver la 
de barras) pulsa una tecla. "¡PRINT 
210 PRINT"Para Ivolver |a lempezar, pulsa W 
:PRINT:PRINT:PRINT 

220 PRINT" (Pulsa ENTER para eepez 

ar)' 

230 Z$=INPUT$(1) 
240 F0RI=1T025:BEEP:PRINT:NEXT 
250 CLS:LOCATE0,20:PRINT' 
MENU 
WOW— " 

260 PRINT" 1-DI AGRAMA LINEAL 

2-DI AGRAMA DE BARRAS 
3-ACABAR*:PRINT:PRINT: 

PRINT 

270 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: 
PRINT: PRINT 

280 A$=INKEY$: IFA$=-3"THENCLS: PRINT"Memo 
ria Wisponible: " ;FRE(0) ; "Bytes. ":END 
290 IFA$*""THEN280 

300 COLOR 12,15,15:F0RI=1T015:BEEP:PRINT 




: NEXT 

310 CLS: INPUT"CUANTOS DATOS VAS A PONER! 
1-10) B ;N 

320 PRINT" (MAXIMO DE 15 UNIDADES) ":F0RI= 
1T0N 

330 PF:INT"DATO NUMERO"; I: INPUTC(I) 
340 NEXT 

350 OPEN"grp:"ASl 
360 SCREEN2 

370 LINE(76,20)-(7ó,175),l 

380 LINE (76, 175) -í 176, 175) , 1 

390 FORY=25TO175STEP10:LINE(74,Y)-(76,Y) 

,1:NEXTY 

400 FORC=76TO176STEP10:LINE(C,177)-(C,17 
5) . 1:NEXTC 

410 COLOR ll:PPESET(160.180):PRINTtl,"(C 
!AiN Soft" 

420 IFA$="l"THENT$=" DIAGRAMA LINEAL 
"¡GOSUB510 

¡6OTO470 

430 IFA$="2"THENT$=" DIAGRAMA DE BARRAS 
" : G0SUB5 

10 

440 FORU=tTON:LINE(Utl0*66,l75)-(Utl0+74 
,175-C(U)tl0),8,BF 
450 NEXT 
460 GOSUB520 
470 COLOR B:F0RI=66T0186:K=K+1 : IFK=NTHE 
N500 

480 LINE(I+(K$10),l75-(C(K)tl0))-(I*l0+( 



K)»10,175-(C(K+l)tl0)) 
490 NEXT 
300 GOTO520 
510 COLOR2:PRESET'.40,0):PRINTil. T $:PETUR 
N 

520 COLOR 4 : PPESET í 1 90 , B0 ) : PP I NT# 1 . ■ PULS 
A UNA TECLA" 

530 W$=INKEY$:IFWS=""THEN530 
540 IFN$="M"ORW$=VTHENSCREEN0:GO!O 170 
550 K=0:IFA$="2"THENA$= ,, r , :GOTO 360 
560 A$="2":GOTO360 



Test de listadoi 
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- 75 


160 


- 58 


310 


-130 


460 -165 


20 


- 58 


170 


-187 


320 


- 90 


470 -16? 


30 


- 58 


180 


-139 


330 


-243 


480 - 68 


40 


- 58 


190 


- 95 


340 


-131 


490 -131 


M 


- 58 


200 


- 36 


350 


- 60 


500 -161 


50 


- 58 


210 


-111 


360 


-216 


510 -254 


n 


- 58 


220 


- 65 


370 


-112 


520 -186 


30 


- 58 


230 


-121 


380 


-111 


530 -19- 


H 


- 58 


240 


- 79 


390 


- 13 


540 -19'. 


100 


- 58 


250 


-181 


400 


-179 


550 -ib: 


110 


- 58 


260 


- 82 


410 


- 24 


560 - 4 


120 


- 58 


270 


- 30 


420 


-104 




130 


- 58 


280 


-136 


430 


- 88 




140 


- 58 


290 


- 36 


440 -126 


TOTAL: 


150 


- 5B 


300 


-235 


450 


-131 


5949 
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Programa i 



■Por Ada & Wooddy. 



CARACTERES 
PROCRAMABLES 



Con este programa podrás 
modificar la forma de los ca- 
racteres que aparecen en la 
pantalla de tu ordenador, tan- 
to en SECREN 0 como en 
SCREEN 1. Dale una nueva 
imagen a tu ordenador. 



A CONTIENE EL CODIGO ASCII DEL 

CARACTER 
AS VARIABLE AUXILIAR 
B CONTIENE LA POSICION DE h 

DE VIDEO DONDE SE E ~ 

CARACTER 
BS VARIABLE AUXILIAR 
C VARIABLE AUXILIAR 
C$ VARIABLE AUXILIAR 
Cl$ CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C2$ CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C)$ CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C4S CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C5S CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C6S CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C7S CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
C8S CONTIENE EL VALOR DE UNA 

POSICION DE MEMORIA 
D VARIABLE AUXILIAR 
DS VARIABLE AUXILIAR 
F VARIABLE AUXILIAR 
F VARIABLE AUXILIAR 



29 'KA AK 

30 ' AW CARACTERES PROGRAMARLES HA 
40 'HA AW 
50 *AW ADA íi W 0 0 D Y WA 
60 'HA AW 
65 'AW Para MSX-CLUB WA 
7i ' AWAWAWAWAWAWAWAWAKAWAWAWAWAWA 
80 'UNICIACIONt 

90 STOP 0N:0N STOP 60SUB 1380 

100 SCREEN liCISsKfY 0FF:C0L0R 1,7,7 

110 OPEN'GRP:" ASI1 

120 PPINT "CARACTERES PROGPAMABLES 



130 PRINT:PRINT"ESTE PROGRAMA SIRVE PARA 
RE- DEFINIR LOS CARACTERES QUE" 
140 PPINT-SE OBTIENEN POR MEDIO DEL TE-C 
LADO. ' 

150 PRINT:PRINT"PPIMERO APARECERA LA FOR 
MA DEL CARACTER, Y A CONTINUA-' 
160 PPINT-CION SE PODRA RECOMPONER EL C 
ARACTER EN LA FORMA QUE SE" 
170 PRINT"DESEE PONIENDO UN 1 EN LAS ' 
180 PRINT-CASILLAS QUE VAYAN COLOREADASY 
UN 0 EN LAS QUE NO.* 
190 PRINT: PRINT'A CONTINUACION OBTENDREM 




OS ELPROGRAMA BASE PARA OBTENER ' 

200 PRINT-EL CARACTER CON SU NUEVA FOR-H 

A.* 

210 PRINT:PRINT"PULSE UNA TECLA PARA SEG 
UIR" 

220 B$=INKEY$:IF B$="THEN GOTO 220 
230 SELECCION DE CARACTER Y PANTALLA» 



240 SCREEN 1:CLS 

250 LOCATE 0,5: INPUT*¿QUE CARACTER DESEA 
CAMBIAR" ; A$ 

260 IF A$=" THEN GOTO 230 
270 A=ASC(A$):IF A=l THEN GOSUB 1080 
280 PRINT:PRINT"¿EN QUE TIPO DE PANTALLA 
LO VA A UTILIZAR?" 
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290 PRINT:PRINT"0- SCREEN 0" 

300 PRINT:PRINT"1- SCREEN 1" 

310 B$=INKEY$:IF B$<>"0" AND B$<>'1" THE 

N GOTO 310 

320 IF B$="0" THEN A$="SCREEN 0"ELSE A*= 
'SCREEN 1" 

330 '«REPRESENTACION DE CARACTER" 

340 D=0:FOR B=At8 TO AI8+7:D=D+1 

350 B*=BINI(VPEEK(B)) 

360 IF LEN(B$)<10 THEN B$="0"+B*:GOTO 36 

0 

370 C$="":F0R C=l TO 10 

380 IF MID$(B$,C,1>="0" THEN C$=C$+" " E 

LSE C$=C$+T 

390 NEXT CiGOSUB 910:NEXT B 
400 SCREEN 2,0 

410 PSET(0,0):PRINTtl," CARACTER 
CARACTER" 

420 PRIHTtl," ANTERIOR MODIFICA 
DO" 

430 PRINTtl, " 

MQH" 

440 DATA 127,127,127,127,127,127,127,0 

450 B=16:C=24:D=80:E=B8:6OSUB 1000 

460 B=16:C=32;D=80;E=80:GOSUB 1040 

470 B=160:C=24:D=224:E=88:GOSUB 1000 

480 B=160:C=32:D=224:E=80:GOSUB 1040 

490 PSETI0.24) 

500 PRINTtl, Ci$ 

510 PRINTtl, C2$ 

520 PRINTtl, C3I 

530 PRINTtl, C4$ 

540 PRINTtl, C5$ 

550 PRINTtl, C6$ 

560 PRINTtl, C7$ 

570 PRINTtl, C8$ 

580 'IFORHACION DEL SPPITEt 

5"0 RESTORE 

600 B$="":FOR B=l TO 6 
610 READ C:BI=B$+CHR$(C) 
620 NEXT B:SPRITE$(1)=B$ 



630 DATA 127,127,127,127,127,127,127,0 
640 'IFORMACION DEL NUEVO CARACTER! 
650 C=24:FOR D=l TO 8:C$="":B=160 
660 FOR E=l TO 8:PUT SPRITE1, (B,C) ,6, 1 
670 B*=INKEY$ 

680 IF BIO'l" AND B$O"0" THEN GOTO 670 
6"0 C$=C$+B$:D$='":FOR F=l TO E 
700 IF HID$(C$,F,l)="l" THEN D«=D$*T E 
LSE D$=D$+" " 

710 NEXT F:PSET(160,C):PRINT#1,D$:B=B*8: 
NEXT E 

720 C$=STR$(VAL(-iB"+C$>) 
730 60SUB 910:C=C*8:NEXT D 
740 PUT SPPITE1. (B, 0.0,1 
750 'IPR06RAMA BASE! 
760 PSETÍ0.95) 

770 PRINTtl," PROGRAMA BASE" 

780 PPINTtl," 

790 PRINTtl, ¡PRINTtl, " 10 ";A$ 

800 IF A$="SCREEN 1" THEN B=At8 ELSE B=A 

18+2048 

810 PRINTtl, " 20 FOP A=";B;" T0";B+7 

820 PRINTtl." 30 READ B" 

830 PRINTtl, " 40 VPOKE A,B" 

840 PRINTtl," 50 NEXT A" 

850 C$=" 60 DATA"+C1$*V*C2$+V+C3$*" 

, "*C4$*", '+C5I*" , "+C6$+". "+C7$4-, -+C8$ 

860 PRINTtl, LEFT$(C$, 30) 

870 PRINTtl." ";MID$(C$,3t,LEN(C$)-30) 

880 PRINTtl, ¡PRINTtl, " PULSE UNA TECLA" 

890 B$=INKEY$:IF B$="" OR B$="l" OR B$=" 

0" THEN GOTO 890 ELSE GOTO 240 

m 'IRUTINASt 

910 ON D GOTO 920. 930, "40. 950, 960, 970. 98 
0,990 

920 C1$=C$:RETURN 
«30 C2$=CÍ: RETURN 
940 C3$=C$: RETURN 
950 C4$=C$¡RETURN 
960 C5$=C$: RETURN 
970 C6$=C$:RETURN 



980 C7$=C$: RETURN 
990 C8$=C$: RETURN 
1000 FOR F=l TO 5 
1010 LINE(B,C)-(D,E),,B 
1020 B=B+8:Ü=D-B 
1030 NEXT F: RETURN 
1040 FOR F=l TO 4 
1050 LINE(B,C)-(D,E),,B 
1060 C=C+8:E=E-8 
1070 NEXT F: RETURN 
1080 IF A$="0" THEN A=2 
1090 IF A$="t' THEN A=3 
1100 IF A$="«" THEN A=4 
1110 IF A$="t" THEN A=5 
1120 IF A$="l" THEN A=6 
1130 IF A$="-" THEN A=7 
1140 IF A$="B" THEN A=3 
1150 IF A$="0" THEN A=9 
1160 IF ft$=»I" THEN A=!0 
1170 IF A$=".:'" THEN A=ll 
1180 IF A$="9" THEN A=12 
1190 IF M-V* THEN A=13 
1200 IF A$=".?" THEN A= 14 
1210 IF A$="*" THEN AM5 
1220 IF A$="-f" THEN A=ii 
1230 IF Af="^" T HEN A=!" 
1240 IF A$=" T " THEN A=15 
1250 IF A$«M" THEN A=l" 
1260 IF A$="r THEN A=20 
1270 IF A$="+" THEN A=21 
1280 IF A$="|" THEN A=22 
1290 IF B$="-" THEN A=23 
1300 IF B$=" r " THEN A^24 
1:10 IF B$=*i" THEN A=25 
1320 IF B$=" L " THEN A=26 
1330 IF B$=' J " THEN A=27 
1340 IF B$="y" THEN A=28 
1350 IF B$="'" THEN A=29 
1360 IF B$='" " THEN A=30 
13 7 0 RETURN 

1380 SCREEN 0:LIST 10-70 



Test de listado B 



10 - 58 


130 


- 82 


260 


-122 


390 


- 43 


520 


-140 


650 - 58 


780 


-174 


910 


-246 


1040 


-183 


1170 


-147 


1300 -174 


20 - 58 


140 


- 76 


270 


- 50 


400 


- 21 


530 


-141 


660 - 47 


790 


- 99 


920 


-182 


1050 


- 67 


1180 


-149 


1310 -176 


30 - 58 


150 


-178 


280 


-254 


410 


- 91 


540 


-142 


670 - 65 


800 


-210 


930 


-183 


1060 


- 61 


1190 


-151 


1320 -178 


40 - 58 


160 


-244 


290 


-237 


420 


-105 


550 


-143 


680 - 3 


810 


- 34 


940 


-184 


1070 


-145 


1200 


-153 


1330 -180 


50-58 


170 


-222 


300 


-239 


430 


-102 


560 


-144 


690 - 10 


820 


-247 


950 


-185 


1080 


-131 


1210 


-155 


1340 -182 


60-58 


180 


-189 


310 


- 21 


440 


- 30 


570 


-145 


700 - 81 


830 


-206 


960 


-186 


1090 


-133 


1220 


-157 


1350 -184 


65 - 58 


190 


-229 


320 


- 26 


450 


- 68 


580 


- 58 


710 -129 


840 


- 27 


970 


-187 1100 


-135 


1230 


-159 


1360 -186 


70 - 58 


200 


-130 


330 


- 58 


460 


- 77 


590 


-140 


720 - 33 


850 


- 37 


980 


-188 


1110 


-137 


1240 


-161 


1370 -142 


80 - 58 


210 


-105 


340 


- 97 


470 


-100 


600 


-138 


730 -230 


860 


-131 


990 


-189 


1120 


-139 


1250 


-163 


1380 -187 


90 -136 


220 


-236 


350 


-108 


480 


-109 


610 


-217 


740 - 53 


870 


-153 


1000 


-184 


1130 


-141 


1260 


-165 




100 - 50 


230 


- 58 


360 


- 16 


490 


-119 


620 


-162 


750 - 58 


880 


- 56 


1010 


-67 


1140 


-143 


1270 


-167 




110 -224 


240 


-176 


370 


-140 


500 


-138 


630 


- 30 


760 -190 


890 


-112 


1020 


- 57 


1150 


-145 


1280 


-169 


TOTAL: 


120 -130 


250 


-247 


380 


- 72 


5 " 


-139 


640 


- 58 


77, -0, 


900 


- 58 


1030 


-145 


1160 


-145 


1290 


-172 17690 
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MSX por dentro ■ 



■Por Javier Guerreroi 



BASIC MSX 

INSTRUCCIONES 

DESCONOCIDAS 



Hay instrucciones muy comunes en el 
Basic a las que echamos mano con no- 
table frecuencia. Esta vez, te explica- 
mos las funciones de otras casi desco- 
nocidas pero igualmente útiles en la 
programación y aprovechamiento de 
los MSX. 



INSTRUCCION CLEAR 

La sintaxis de esta instrucción es la 
siguiente: 

CLEAR ni, n2 

Y sirve para inicializar todas las va- 
riables y seleccionar el tamaño del área 
de cadenas y la dirección de memoria 
más alta utilizada por el BASIC; ade- 
más de cerrar todos los ficheros abier- 
tos en el caso de que los hubiere. 

El primer parámetro de esta instruc- 
ción (ni) determina el espacio a reser- 
var para las cadenas de caracteres. En 
el caso de que el espacio reservado fue- 
ra demasiado pequeño aparecería en 
pantalla el mensaje de error "OUT OF 
STRING SPACE". El valor por defec- 
to de ni es 200. 

El segundo parámetro de esta ins- 
trucción (n2) define la dirección por 
encima de la cual no puede escribir el 
BASIC. Este parámetro es utilizado ha- 
bitualmente para proteger los progra- 
mas escritos en lenguaje máquina, y 
como hemos mencionado anterior- 
mente es una dirección lo más próxima 
posible al tope de la memoria. Su valor 
por defecto para una configuración sin 
unidad de disco es &HF380. 

Si se intenta sobrepasar la dirección 
&HF380, nos aparecerá el mensaje de 
error "ILLEGAL FUNCTION 
CALL". Si, en cambio, tecleamos una 
dirección muy cercana al principio de 
la tabla de los programas BASIC, nos 
quedaremos sin espacio para nuestro 
programa BASIC y visualizaremos el 
mensaje "OUT CP MEMORY". 

LAS INSTRUCCIONES 
OUT Y WAIT 

La sintaxis de la instrucción OUT es 
la siguiente: 

OUT n ° de port, valor 



Esta instrucción envía un byte al 
port de entrada/salida especificado 
por el primer parámetro, permitiendo 
en consecuencia escribir sobre un 
PORT periférico del Z80. 

El n.° de PORT debe estar compren- 
dido entre 0 y 255 así como el valor, 
puesto que si sólo enviamos un byte el 
valor máximo que podemos asignarle 
es 255. 



El sistema no utiliza la totalidad de 
los PORTS disponibles, sino unos po- 
cos. En la tabla 1 se muestra una selec- 
ción de los PORTS de uso más general 
junto con un breve comentario de su 
función. 

La sintaxis de WAIT es la siguiente: 

WAIT n.° de port, byte de máscara, 
byte de selección 
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Esta instrucción realÍ2a una espera 
hasta que la entrada del PORT de en- 
trada/salida alcance un valor determi- 
nado. 

Como puede deducirse, WAIT lee el 
contenido del PORT determinado en 
el primer parámetro. Tras esto, aplica 
la función AND al byte de máscara, 
posteriormente la función XOR con el 
bvte de selección y no devuelve el curso 
al programa hasta que el resultado sea 
diferente de 0. Recapitulemos: 

Cuando se ejecute WAIT, se leerán 
los datos introducidos a través del 
PORT de E/S especificado. Si el valor 
del resultado final es 0, los datos proce- 
dentes del PORT de E/S se introduci- 
rán continuamente, y si es cualquier 
otro, pasará la ejecución a la siguiente 
línea del programa. En el caso de que 
se omitiera elbyte de selección, su va- 
lor por defecto sería 0. 

La función de máscara permite aislar 
el o los bits a verificar, mientras que la 
función de selección permite invertir el 
estado a comprobar. 



Por ejemplo: 

Deseamos esperar hasta que el bit 
más significativo (Bit7) del PORT 133 
sea 0: 

WAIT 133, &B1000000 
o bien: 
WAIT 133, 128 

Si deseamos realizar la operación in- 
versa, es decir, esperar hasta que el bit 
7 del PORT 133 sea diferente de 0, es- 
cribiríamos lo siguiente: 

WAIT 133, &B 10000000, 
&B10000000 
o bien: 
WAIT 133, 128, 128 

LA FUNCION INP 

La sintaxis de esta función es la si- 
guiente: 

variable = INP (n.° de PORT) 
Esta función lee los datos proceden- 



tes de un PORT de entrada/salida del 
Z80, pudriéndose asignar este dato a 
una variable (como queda explícito en 
la sintaxis que figura más arriba) o bien 
obtener el dato directamente por pan- 
talla en combinación con PRINT. 

El n? de PORT debe estar compren- 
dido entre 0 y 255. 

LA FUNCION VARPTR 

El plato fuerte de este artículo lo 
constituye la función VARPTR, una de 
las más maravillosas herramientas del 
BASIC MSX. Esta función permite ob- 
tener la dirección inicial de memoria 
donde está almacenado el dato asigna- 
do a una variable, además de ofrecer la 
dirección del bloque de control de fi- 
cheros asignado al fichero especifica- 
do. Vayamos por partes: 

El uso principal de la función 
VARPTR es el de obtener información 
acerca de las cadenas de caracteres. 

Si por ejemplo escribiéramos: 

10 A$ = "MSX CLUB" 

El sistema operativo del intérprete 
BASIC debe almacenar el valor asigna- 
do a la variable A$ (en este caso MSX 
CLUB) en alguna parte de la memoria 
(concretamente en el espacio reserva- 
do para el área de cadenas). 

Si en la línea siguiente escribiéra- 
mos: 

20 PRINT A$ 

El sistema debe ser capaz de encon- 
trar MSX CLUB. Para efectuar esta 
operación, el BASIC posee una lista de 
las variables empleadas. Cada vez que 
encuentra una nueva variable la añade 
a esa lista. En realidad, el BASIC posee 
dos listas: una para las variables sim- 
ples y otra para las variables dimensio- 
nadas. El sistema consulta la lista apro- 
piada a la variable con la que se en- 
cuentra. 

Las variables simples se definen la 
primera vez que se les asigna una valor, 
las variables de matriz (dimensionadas) 
se definen mediante la instrucción 
DIM. 

Además del nombre de la variable, la 
lista contiene informaciones sobre el 
tipo de variable (entera, precisión sen- 
cilla, doble precisión, cadena). En fun- 
ción de ese tipo, le son suministradas al 
sistema otras informaciones como pue- 
den ser el valor directo de la variable o 
la dirección donde puede encontrarse 
ese valor. 

El BASIC utiliza esas informaciones 
para encontrar rápidamente los valores 



MAPADEMEMORIA 



AREA DEL 
USUARIO 



F380H 
FFFFH 



MSX-BASIC ROM 



AREA TEXTOS 



AREA VARIABLES 



AREA VARIABLES 
CON SUBINDICE 



AREA LIBRE 



AREA STACK 



AREA 

ALFANUMERICOS 



BLOQUE CONTROL 
ARCHIVO 



AREA DE TRABAJO 



Almacena el programa BASIC 
con sus números de linea. 



Para almacenar variables 
numéricas. En el caso de 
variables alfanuméricas, la 
descripción del alfanumérico 

Para almacenar variables con 
subíndice numéricas. Si es 
una variable alfanuménca. se 
almacena la descripción 

No usada por el usuario aún. 

Area stack para dirección de 
regreso. Se utiliza con 
RETURN y FOR-NEXT, etc. 



Para almacenar el contenido 
de las variables 
alfanuméricas, simples o con 
subíndice. 



Usado para l/O desde 
archivo 



Area utilizada por el Sistema. 



21 



MSX por dentro» 



ASIGNACION DE LOS PORTS 
DE ENTRADA/SALIDA 


Utilización 


No. Port 

(hex.) 


Aplicación 


VDP para 
adaptador 
MSX 1 


88 
89 
8A 
8B 


Lectura/escritura de datos 
Escritura dirección orden/lectura registro estado 
Escritura registro de paleta de colores 
Escritura indirecta registro 


Modem 


8C 
8D 








Impresora 


90 
91 


Escritura: Bit 0: estroboscópico 
Lectura: Bit 1 : estado 


VDP 


98 
99 
9A 
9B 


Igual que 88 
Igual que 89 
Igual que 8A 
Igual que8B 


PSG 


AO 
A1 
A2 


Registro de direcciones (escritura) 
Escriturado datos 
Lectura de datos 


PPI 


A8 

A9 

A8 
A9 


Lectura/escritura de datos para uso del port A (selección del slot 
de memoria) 

Lectura/escritura de datos para uso del port B (exploración 
del teclado) 

Lectura/escritura de datos para uso del port C 
Selección del modo (escritura) 


MSX-ENGINE 


AC:AF 




Ampliación 
de memoria 


BO 
B1 
B2 
B3 


Dirección A0-A7 

Dirección A8-A1 0, control A1 3-A1 5 
Dirección A11-A1 2, D0-D7 
Selección del modo 


Calendario/ 
reloj 


B4 

B6 


Registro de direcciones 
Dato 


Lápiz 
óptico 


B8-BA 
BB 


Lectura/escritura 

<jyj\\j eaui uuid 


VHD control 


BC 
BD 
BE 
BF 


Port A 
PortB 
PortC 

Selección del modo 


MSX-Audio 


C0-C1 




Control del 
sistema 


F5 


bO no utilizado 
b1 no utilizado 
b2 MSX-audio 
b3 superposición 
b4 MSX-interface 
b5RS-232C 
b6 Lápiz óptico 

b7 Calendario/reloj (sólo MSX 1 ) 


E/S bus color 


F6 




Control AV 


7 


bO Audio Derecho 0 : mezcla 
b1 Audio Izquierdo 0: mezcla 
b2 Selección entrada vídeo 0: 21 pins 
b3 Captación entrada vídeo 0: sin entrada 
b4 Control AV 0:TV 
b5 Control Ym 0:TV 
b6 Control Ys 0:Super 
b7 Selección vídeo 0:TV 


Mapeador 
de memoria 


FC-FF 





durante la ejecución del programa. La 
instrucción VARPTR es la que nos va a 
permitir conocer todas estas informa- 
ciones. 

Si escribimos: 



X = VARPTR (A$) 

asignamos a X un valor determinado, 
que corresponde a la dirección donde 
podremos encontrar informaciones so- 
bre la variable A$. 

La variable sobre la cual se desee ob- 
tener información, como hemos dicho 
anteriormente puede ser de cualquier 
tipo (entera, precisión simple o doble y 
cadena), por lo cual sería perfectamen- 
te válido escribir 

X = VARPTR (A$ (2)) 

El valor contenido en X (por tratarse 
de una dirección de memoria) puede 
estar comprendido entre 0 y 65535. Si 
se trata de una variable entera, estará 
almacenada en dos bytes. El contenido 
de la dirección suministrada por 
VARPTR variará en función del tipo 
de variable. 

Si D es la dirección suministrada por 
la función VARPTR, y trabajamos con 
una variable simple, podemos encon- 
trarnos con cuatro supuestos: Que sea 
entera, de precisión sencilla, o de doble 
precisión o cadena. Vamos a analizar el 
primer caso (que se trate de una varia- 
ble entera) y los demás los veremos en 
el próximo artículo. 

Sabemos que las variables enteras se 
almacenan sobre 16 bits en binario, 
siendo el bit más significativo (Bit 15) 
el bit de signo. 

D contiene los 8 bits menos signifi- 
cativos de la variable. D + 1 contiene 
los 8 bits más significativos de la varia- 
ble. Por ejemplo: 

Si la variable vale 12345, D contiene 
el valor 57 mientras que D + 1 contie- 
ne 48. Es decir: 

48 * 256 + 256 + 12345 

Si en lugar de asignar a la variable el 
valor con signo positivo lo hiciéramos 
con un número negativo, por ejemplo 
- 12345, D valdría 199 mientras que D 
+ 1 valdría 207: 

207*256 + 199 = 53191 
por lo tanto 

53191 - 65536 = 12345 

El mes que viene terminaremos de 
ver las posibilidades de la función 
VARPTR, y otras instrucciones maldi- 
tas de BASIC. Hasta entonces. 
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BASES 

1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías: 

E< 

Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. °-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. "-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de Lis v.ui.i 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del 



PREMIOS 

7. -MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: . 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. "-EI Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. "-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10. "-La elección del PROGRAMA DEL AÑO se- 
riará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

11. "-El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 

12. "-E1 fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 
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Otros lenguajes i 



■ por Willy Miragalli 



CODIGOS MAQUINA 
Y ENSAMBLADOR 
DEL Z-80 



Ese desconocido, que im- 
pone gran respeto a los no 
iniciados, no es la panacea 
universal; pero casi... 



Hoy, dentro de nuestro repaso a 
los otros lenguajes de los MSX, 
vamos a tratar a uno de los ma- 
yores desconocidos de la informática: 
el ensamblador. Incluso la mayoría de 
los que creen conocerlo desconocen 
gran parte de sus posibilidades. 

Vamos a empezar solventando uno 
de los grandes equívocos que rodean a 
este lenguaje: la diferencia entre el len- 
guaje máquina y lenguaje ensambla- 
dor. 

CODIGO MAQUINA Y 
ENSAMBLADOR 

El ordenador está formado interna- 
mente por los llamados circuitos lógi- 
cos o digitales. Estos circuitos son de- 
nominados así porque sólo pueden to- 
mar valores concretos dentro de un 
conjunto limitado. En concreto, los cir- 
cuitos usuales en los ordenadores son 
circuitos binarios. En estos circuitos 
circulan dos tipos de información, 
unos (tensión) o ceros (no tensión). 

En vista de esto, la máquina sólo 
puede entender programas escritos en 
código binario. Sólo entenderá ceros y 
unos. Este código binario es el llamado 
código máquina. Prácticamente nadie 
programa en código máquina. La se- 
cuencia de unos y ceros que hay que 
pasar al ordenador resulta desesperan- 
te. Además, resulta muy fácil equivo- 
carse, y terriblemente difícil depurar 
un programa que no funcione correcta- 
mente. 

Vamos, sin embargo, a intentar ha- 
cer un par de líneas en código máqui- 
na. Para esto hablaremos de registros, y 
de otros conceptos que serán aclarados 
un poco más adelante; pero esperamos 
que sirvan de ejemplo clarificador del 
funcionamiento del código máquina. 

El programa que haremos a conti- 
nuación sumará los registros A y B, de- 
jando el resultado en el registro A. 
Además, incrementaremos en uno ese 




resultado, dentro del propio registro 
A. Esto en BASIC se solucionaría con 
algo como: 

A = A + B 

A = A + l,o incluso más fácil A=A + 
B+ 1 

En C.M. necesitamos, en primer lu- 
gar, localizar el código binario de la 
instrucción SUMA AL REGISTRO A. 
Esta instrucción tiene la forma: 

10 000 rrr (donde rrr es el código del 
registro a sumar) 

El código del registro B es el 000, 
por lo que para sumar A y B deberemos 
nacer 10 000 000. Para incrementar el 
registro A utilizaremos la instrucción 
INCREMENTA REGISTRO, que tie- 
ne la forma 00 rrr 100, siendo el código 
del registro A el 111. 



El programa queda pues de la for- 
ma: 

10 000 000 A = A + B 

00 1 1 1 100 A = A + 1 

Evidentemente, esta forma de pro- 
gramar resulta muy pesada y lleva a 
muchos errores. Como este proceso es 
muy mecánico puede ser ejecutado por 
un programa. Este programa es lo que 
denominamos un ENSAMBLADOR, 
que traduce instrucciones (llamadas 
mnemónicos porque son mucho más 
fáciles de recordar que sus equivalen- 
cias binarias) al correspondiente códi- 
go de máquina. 

El programa anterior, escrito en có- 
digo ENSAMBLADOR sería: 

ADD A, B (ADD significa sumar en 
inglés) 

INC A (Incrementa el registro A) 
Así pues, el lenguaje ENSAMBLA- 
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DOR, (utilizado por la inmensa mayo- 
ría de los programadores) no es más 
que una codificación algo más humana 
de los códigos binarios del ordenador. 

ALTO Y BAJO NIVEL 

Antes de adentrarnos más profunda- 
mente en lo que es el código máquina y 
el lenguaje ensamblador, diferenciare- 
mos entre lo aue son lenguajes de alto y 
bajo nivel. El lenguaje binario utilizado 
por la máquina nos es muy difícil de 
comprender. En contrapartida, los or- 
denadores no comprenden el lenguaje 
humano. Para entendernos con los or- 
denadores, se han creado una serie de 
lenguajes intermedios. La mayor o me- 
nor proximidad a uno de los extremos 
de esta cadena de lenguajes es lo que 
llamamos nivel de operatividad de un 
lenguaje. Un lenguaje de bajo nivel es 
aquel que depende directamente del 
código máquina del ordenador. Así, el 
lenguaje BASIC es un lenguaje de alto 
nivel, ya que está mucho más próximo 
al humano aue al ordenador. El len- 
guaje natural (sueño de muchos pro- 
gramadores que no tardará en conver- 
tirse en realidad) es el propio lenguaje 
humano. El día que los ordenadores 
sean capaces de entenderlo correcta- 
mente habremos llegado a los lenguajes 
de MAS ALTO NIVEL. 

¿POR QUE EL LENGUAJE 
ENSAMBLADOR 

El porqué del lenguaje máquina es 
evidente: es el único lenguaje que en- 
tiende la máquina. EL BASIC, el len- 
guaje ensamblador, el PASCAL, el C, 
el FORTRAN, el LOGO, y toda la co- 
lección de lenguajes no son más que 
programas escritos en C.M. 

La razón del ensamblador es que re- 
sulta tremendamente difícil para los se- 
res humanos tratar con inacabables ris- 
tras de códigos binarios. El ensambla- 
dor es un buen método para evitar es- 
tos códigos. 

En realidad, el único programa reali- 
zado en código máquina es el ENSAM- 
BLADOR (hoy día se realizan con en- 
sambladores de otras máquinas ya exis- 
tentes para no tener que trabajar con el 
intratable C.M.). Todos los otros pro- 
gramas y lenguajes se realizan en len- 
guaje ensamblador, que es del que ha- 
blaremos a partir de ahora. Puede ocu- 
rrir, que los lenguajes no se realicen ni 
siquiera en ensamblador. Por ejemplo, 
las nuevas versiones de FORTRAN 
(lenguaje eminentemente matemático) 
están escritas en lenguaje C. 



¿HISTORIA DEL 
ENSAMBLADOR? 

No conocemos exactamente la histo- 
ria del ensamblador. Es un poco un 
lenguaje sin historia. Las razones que 
contribuyen a ello son varias. En pri- 
mer lugar, no existe un lenguaje ensam- 
blador, como existe UN BASIC (aun- 
que con muchos dialectos). Cada orde- 
nador (en realidad cada CHIP) utiliza 
su propio lenguaje ensamblador. Esta 
es la razón por la que diferenciamos el 
Z-80 del 1-8088, por ejemplo. Damos a 
continuación un mismo programa en 
dos ensambladores diferentes: 
LDA,B MOVAX,BX 
ADD A,C ADDAX,CX 
LDB, C MOVBX.AX 

El ensamblador del Z-80 fue creado 
por el departamento de hardware de 
ZILOG, el mismo que diseñó el CHIP. 
Es por tanto, un lenguaje que no lleva 
la firma de un gran nombre, como el 
LOGO de Paper, o el PASCAL de 
Wirth. 

VENTAJAS DEL 
ENSAMBLADOR 
RESPECTO A OTROS 
LENGUAJES 

El lenguaje ensamblador tiene sólo 
dos ventajas sobre los otros lenguajes y 
muchos inconvenientes. El lenguaje 
ensamblador es mucho más rápido que 
cualquier otro lenguaje. Puede llegar a 
ser 5.000 veces más rápido que el BA- 
SIC en ciertas operaciones. Su segunda 
ventaja es que permite trabajar sobre la 
máquina y no sobre el lenguaje. Esto 
quiere decir que no hay limitaciones in- 
salvables excepto las de la propia má- 
quina. Si queremos trabajar con núme- 
ros de 150 decimales, podemos hacerlo 
perfectamente. La razón de esto es, pa- 
radójicamente, que el ensamblador no 
puede trabajar con decimales. Todas 
las operaciones, o casi todas, excepto la 
suma, la resta, y poco más, no existen, y 
tenemos que ser nosotros mismos los 
que las generemos. Si hemos de crear 
una instrucción, o una estructura, ¿por 
qué no hacerlo a nuestro gusto? 

El ensamblador, no deja de ser, el 
mejor y el peor de los lenguajes. Las po- 
cas instrucciones existentes nos limi- 
tan; pero al mismo tiempo nos abren 
las puertas a nuevas estructuras. Todo 
programador que se precie conoce 
(aunque sólo sea de oídas) el funciona- 
miento del lenguaje ensamblador. 
Ayuda mucho, a la hora de hacer pro- 
gramas en cualquier otro lenguaje, sa- 
ber cómo ejecutará la máquina nues- 
tros programas. 



Es ésta también la razón de los mitos 
que rodean al ensamblador. La bús- 
queda incansable de POKEs mágicos 
no es más que una ligera entrada en el 
mundo de la lógica interna de la máqui- 
na. 

DESCRIPCION DEL 
ENSAMBLADOR 

Describir el ensamblador en pocas 
palabras es muy difícil. Se estructura 
difiere totalmente de los demás lengua- 
jes de programación, y en él no existen 
ni líneas, ni variables, ni instrucciones 
como las de otros lenguajes. 

La base del lenguaje ensamblador es 
el CHIP, en nuestro caso un Z-80A. El 
chip cuenta en su interior con un con- 
junto de "variables" llamadas registros. 
Estos registros no se encuentran en la 
memoria del ordenador, sino dentro 
del propio chip. Esto hace que las ope- 
raciones entre registros sean mucho 
más rápidas que las realizadas con da- 
tos situados en la memoria. 

Los registros tienen una misión es- 

f>ecífica, no podemos utilizarlos, como 
as variables, a nuestro antojo. El regis- 
tro AF está compuesto por dos regis- 
tros independientes; el registro A (acu- 
mulador) encargado de las operaciones 
básicas y el registro F (flags) encargado 
de los errores y condiciones. Otros re- 
gistros son el BC (para bucles), DE 
(complementación del HL), el HL 
(para trabajo con memoria), el PC 
(contador de prográmamete. 

Podemos, además, trabajar con los 
datos situados en la memoria, y muy 
poco más. 

Resulta muy difícil imaginar un pro- 
grama completo como una secuencia 
de sumas, restas, movimientos de da- 
tos; pero sólo hay un secreto: muchas 
horas de paciencia. 

La contrapartida a su elevada veloci- 
dad es que, por ejemplo, para desarro- 
llar un programa que lea dos números 
del teclado, los sume, y escriba el resul- 
tado en la pantalla, podemos perder 
más de un día de trabajo. La velocidad 
tiene un precio, y muy alto. 

Personalmente, no aconsejaría el 
lenguaje ensamblador a aquellos que 
no conocen BIEN ningún otro lengua- 
je; pero animaría a aquellos que ya co- 
nocen el BASIC, el PASCAL, o cual- 
quier otro lenguaje. 

EN ENSAMBLADOR EN 
LOS MSX 

Existen numerosos ensambladores/ 
desensambladores en los MSX. Se me 
olvidaba. Si un ensamblador es el pro- 
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Otros lenguajes, 



grama que traduce las instrucciones a 
códigos binarios, el desensamblador es 
el programa que realiza la operación 
inversa. Cabe decir que la mayoría de 
los programas comerciales están en- 
samblados y que, para poder listarlos, 
necesitáis un buen desensamblador. 

Vamos a nombraros algunos, si no 
todos, los ensambladores que existen 



para los MSX. El paquete DEVPAC 
distribuido por IVESON en disco, 
contiene ensamblador, desensambla- 
dor y un editor de textos para poder 
generar los programas. Su precio ron- 
da las 15.000 ptas. 

Existe un ensamblador/desensam- 
blador en cinta, de Philips, cuyo precio 
es de unas 2.600 ptas. 



También existen un ensamblador y 
un desensamblador de Sony, obra de 
Hi-soft, y que goza de un gran prestigio 
entre los programadores. Su precio es 
de 3. 900 ptas. 

SVI España distribuye un ensambla- 
dor/desensambladqr ZEN en disco y 
cassette, con unos precios respectivos 
de 5.400 y 10.900 aprox. 




N? 20 - 175 PTAS. 



Nv 21 - 175 PTAS. 



N.° 22-23 350 PTAS. N.° 24 - 225 PTAS. 



¡SI TE HACE FALTA ALGUN NUMERO DE 



PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO 



| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n." del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S A 

! NOMBRE Y APELLIDOS 

I CALLE N.- CIUDAD 

DP ....... PROVINCIA TEL 
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¡¡¡SONÓ LA FLAUTA!!! 



LANZAMOS 




La primera revista de Compact Disc de España 

COMPACTA Y DIFERENTE 
Totalmente pensada para ¡os usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 
Toma nota de nuestro sumario 

- CD - La pureza del sonido 

- CD - Interactivo 

- CD-ROM 

- GUIA COMPLETA DE APARATOS COMPACT DISC 

- COMPLETO CATALOGO DE DISCOS 
Música clásica y jazz 

- LOS 50 CLASICOS IMPRESCINDIBLES 

- LOS «TWENTY POPS» 




NO ES CASUALIDAD 

Otro producto de Manhattan Transfer, S.A. 



Software MSX-2, 



■por W. Miragalli 



LA ISLA 
DEL TESORO 



Las posibilidades gráficas de 
los MSX-2 y una buena aven- 
tura son los ingredientes idó- 
neos para pasar las largas tar- 
des de invierno. La Isla del 
Tesoro es un claro ejemplo 
de esta conjunción. 



LA ISLA DEL TESORO 

La isla del Tesoro" es el título de 
una conocida novela de Robert 
Louis Stevenson, autor también 
de obras como "Secuestrado" o "El ex- 
traño caso del Dr. Jekyll y Mr. Hyde". 
Esta novela representa uno de los ma- 
yores clásicos de la novela de aventu- 
ras. 

Los personajes de cualquier novela 
de piratas se encuentran en esta obra. 
Encuentran cabida, aparte de nuestro 
héroe y personaje, Jim Hawkins, el pi- 
rata Billy Bones (que termina por no 
ser tan malvado como se espera de los 
piratas), el Doctor Liveseys, el Sr. Tre- 
lawney, Ben Gun (abandonado en una 
isla desierta durante años), y también 
los malvados, como Perro Negro, Long 
John Silver, etc. 

UN PROGRAMA DE 
AVENTURAS: 

Los programas de aventuras comen- 
zaron a ser populares gracias a su apari- 
ción sobre ZX-Spectrum; pero existían 
desde mucho antes. Los primeros pro- 
gramas de aventuras ampliamente co- 
nocidos aparecieron sobre Apple II; 
pero precisaban para funcionar de una 
ampliación que permitiese los gráficos 
en color. Los gráficos que incluían (in- 
comparablemente menos precisos que 
los que incorpora La Isla del Tesoro) 
resultaron espectaculares en su tiempo 
(hace tan sólo cinco o seis años). 

Algunos de estos programas, espe- 
cialmente Hobbit son todavía hoy muy 
apreciados. Como decíamos antes, los 
programas de MSX-2 incorporan unos 
excelentes gráficos; pero no son los 
gráficos la parte más importante del 
programa, sino el propio programa en 
sí. Vamos a comenzar aclarando en qué 
consiste un programa de aventuras y 
sus principales características. 

Un programa de aventuras no es más 
que un juego dialogante. El programa 
sitúa al jugador en un escenario deter- 
minado y le informa de lo que le rodea. 




Cerca ciei escritor 
jwrt <t# aceite rota <m 

•tPrsi s?i^? r ; an **** 



■& puert< 



A partir de ese momento, el jugador 
puede hacer lo que quiera, siempre que 
esto sea posible y se lo comunique de 
forma correcta a la máquina. Por ejem- 
plo, podemos indicarle al programa co- 
sas como ABRE LA CAJA, LEE LA 
CARTA, etc. La calidad de un progra- 
ma de aventuras viene determinada 
por numerosos aspectos. El más im- 
portante es, evidentemente, la aventu- 
ra escogida; el tema de la aventura 
debe ser lo suficientemente atractivo 
para el jugador. 

Otro punto de vital importancia es el 
vocabulario que el programa es capaz 
de comprender. Un programa de aven- 
turas que sólo comprendiese diez pala- 
bras sería tremendamente aburrido, ya 
que no le podríamos decir casi nada. 
Por tanto, un programa de aventuras es 



su vocabulario. Existen además otras 
palabras que indican acciones no rela- 
cionadas directamente con la aventura. 
Podemos así, indicar al programa que 
nos muestre lo que llevamos encima 
(objetos, dinero, etc.), que nos preste 
alguna ayuda, o que grabe en disco o 
cinta el juego, para poder continuarlo 
más tarde. Esta opción es en realidad 
indispensable, ya que la mayoría de 
juegos de aventuras no se logran solu- 
cionar en un solo día. 

Importante también es la inclusión 
de gráficos. En los programas primiti- 
vos (anteriores a los de Apple II ante- 
riormente citados), no existían gráfi- 
cos, y el programa debía describir mi- 
nuciosamente todo lo que rodeaba al 
jugador. En cambio, en los modernos 
programas de aventuras, el jugador 
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puede "ver" lo que vería el personaje 
del juego gracias a las numerosas esce- 
nas gráficas que los programas repre- 
sentan en la pantalla. 

Uno de los puntos más difíciles de 
medir en un programa de aventuras es 
la "inteligencia" del mismo. Un pro- 
grama que responde siempre con fra- 
ses como "NO ENTIENDO" o "NO 
PUEDES HACER ESO AHORA" 
acaba por ser aburrido, ya que, en lu- 
gar de pensar en el juego, acabamos 
pensando en cómo decirle lo que que- 
remos decirle al programa. Es, por tan- 
to, imprescindible que el programa sea 
versátil y que no responda tan sólo a 
unas cuantas frases preestablecidas. 

Como ejemplo de versatilidad, aun- 
que no sea un programa de aventuras, 
cabe destacar el programa DOC, un 



programa que simula que el ordenador 
es un psicólogo. Nos pregunta sobre 
nuestros problemas, nuestros sueños, y 
siempre responde con una inteligente 
respuesta (normalmente muy diverti- 
da) que hace las delicias de los aficiona- 
dos a la informática. 

LA ISLA DEL TESORO EN 
LOS MSX: 

El programa de aventuras sobre la 
novela de La Isla del Tesoro, está sien- 
do comercializado por Philips, aunque 
ha sido Idealogic la encargada de reali- 
zar la versión en castellano del progra- 
ma. Uno de los inconvenientes de los 
programas de aventuras es que en mu- 
chos casos están realizados en inglés, 



con lo que resultan inaccesibles para 
aquellos que desconocen el idioma. La 
Isla del Tesoro soluciona este primer 
problema. 

La Isla del Tesoro es uno de los pro- 
gramas de aventuras con un más am- 
plio vocabulario de los existentes hoy 
en día. Al estar incluido en un disco de 
3.5", puede almacenar gran cantidad 
de datos y gráficos. El programa cuen- 
ta, como ya hemos comentado, con 
unos muy logrados gráficos que sacan 
pleno provecho a las posibilidades de 
los MSX-2. 

Pero lo que hace de este programa 
uno de los mejores que hemos visto 
hasta el momento, es su elevado nivel 
de inteligencia. En general, es capaz de 
resolver satisfactoriamente cualquier 
solución difícil, con tal de que le demos 
las instrucciones con un mínimo de cla- 
ridad. Sin embargo, en algunas situa- 
ciones resulta exasperante comprobar 
que sólo una de las soluciones es acep- 
tada por el programa. Tras probar a 
abrir la puerta, tirarla abajo, etc., resul- 
tó abrirse sólo cuando se nos ocurrió 
darle una patada. 

Un juego, sin embargo, que puede 
haceros pasar muy buenos ratos de 
aventuras. 



DIALOGO 

REALIZADO CON LA 
ISLA DEL TESORO 
MSX 

Bylly dice: 

"Mi cofre... en mi habitación... 
quieren el puño de Flint..." La voz 
se apaga y Billy muere. Cuando se 
desploma notas un resplandor de 
metal en su cuello... 
Examina el metal 

Hay una pequeña llave alrededor 
del cuello de Bill\ . 
Coge la llave 

Coges la llave del cuello de Billy. 
Ve al sur 

Estás en el bar. Sobre el mostra- 
dor hay un gran barril de ron de ma- 
dera y una fila de jarras. El comedor 
está al norte. Hay escaleras que con- 
ducen al segundo piso de la posada. 
Asciende 

Subes por la ancha y aireada esca- 
lera. Estás en el segundo piso de la 
posada, fuera de la habitación de 
Billy. Hay una hoja de periódico a 
tus pies. 

Dale una patada a la puerta 

La puerta se abre, golpeando la 
pared con un gran ruido... 
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Monitor al día 



JOYSTICK SVI-104 




La cuarta generación de 



El joystick QUICKSHOT IV 
constituye una auténtica inno- 
vación dentro del mundo de los 
juegos. Básicamente se trata de la últi- 
ma evolución del QUICKSHOT I, con 
un diseño absolutamente revoluciona- 
rio. 

El detalle más interesante de este 
modelo de joystick es la posibilidad de 
intercambiar los 3 mangos de diferen- 
tes formas para adaptarse a los diferen- 
tes juegos, según se trate de juegos de- 
portivos, de combate o de carreras. 

Tienen 3 ángulos de desplazamiento 
a 0, 45 y 90 grados. Lleva una base con 
ventosas que permiten adherirlo a una 
superficie lisa y manejarlo con una sola 
mano. 



PHILIPS dBASE II 

La base de datos más famosa 
por fin para MSX 

dBASE II es un sistema extrema- 
damente poderoso como herra- 
mienta para el tratamiento de ba- 
ses de datos. Permite crear sistemas 



completos de bases de datos; agregar, 
eliminar, editar, desplegar e imprimir 
los datos con la máxima agilidad y un 
mínimo de duplicación de los datos del 
fichero. 

Este potentísimo programa permite 
hasta 65535 registros por base de da- 
tos, 1.000 caracteres por registro, 32 
campos por registro y 16 dígitos de 
precisión numérica. 

Este paquete incluye varias rutinas 
de funcionamiento automático para 
generar lotes completos de programa- 
ción que facilitarán la tarea del usuario. 
Junto con el completo manual están- 
dar de dBASE II PHILIPS entrega 
un anexo para la utilización idónea de 
estas rutinas generadoras de progra- 
mas. El PVP aproximado del paquete 
es de 23.000 ptas. + IVA y funciona 
tanto para la primera como para la se- 
gunda generación de MSX. 



MONITOR PERSONAL 
PHILIPS CM 8533 




Aprovecha al máximo las 
posibilidades de tu 
ordenador 



El monitor CM 8533 pertenece a 
la extensa gama de monitores 
personales de PHILIPS, pensa- 
da para satisfacer las necesidades de to- 



dos los usuarios de ordenadores perso- 
nales y de uso doméstico. 

Su pantalla antideslumbrante garan- 
tiza una visión óptima, teniendo situa- 
dos los principales mandos para su 
ajuste en la parte frontal, lo que permi- 
te operar con absoluta comodidad. 

Este modelo CM 8533 incluye una 
entrada RGBI, además de admitir la se- 
ñal especial RGB de IBM. 

Como puede verse, la sofisticada 
tecnología de este monitor y su calidad 
de imagen abren nuevos horizontes 
para los usuarios MSX. Regálate un 
CM 8533 y da una patada a tu vieja TV, 
nos lo agradecerás. 



UNIDAD DE DISCO 

S VI 707 




La unidad de disco MSX SVI 707 
es un lector de discos de 5 1/4" 
de 360 Kb de capacidad, diseña- 
da especialmente para los ordenadores 
MSX mediante el adaptador SVI-213. 
Se suministra con los S.O. MSXDOS y 
CP/M. Esta unidad incluye emulación 
de formatos de diferentes ordenado- 
res, entre los que cabe destacar KAY- 
PRO II, OSBORNE, BONDWELL 
1/ y el SVI 328, con lo que el extenso 
catálogo de software disponible para 
los mismos es directamente utilizable 
por el ordenador, combinando su uso 
con la tarjeta de 80 columnas SVI-727, 
lo que convierte a la configuración así 
obtenida en un sistema para usos pro- 
fesionales y de pequeña gestión. Su 
precio aproximado es de 66.500 ptas. 



Test de listado— Cargador de Mad Jumper» 

10 - 55 so 90 -: = 5 13? -ta: 170 -151 210 -202 250 -13* 2°0 - ¿4 330 - 95 370 41? -223 
20-58 ¿0-23 M - 67 140-200 190 -227 220 -119 2¿0 -172 700-240 7*0 - -9 750-213 

30 - 53 70 - ?l 110 -155 150 -225 190 - 37 230 - 94 270 - 12 310 - 45 350 - 32 390 -105 r 0TALs 

11 - !9 H . 3 2 ::c -152 i*f -223 200 - 56 240 - 81 290 -129 320 - 3 360 -129 W -111 4950 
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MUY PRONTO EN TU QUIOSCO. Stop 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



Ala vanguardia de la prensa útil. Stop 



Programa i 



■por Carlos Sánchez Lópezi 



EDITOR 
MUSICAL 



Interpreta tus piezas favori- 
tas o compon tus propias me- 
lodías a tres canales con este 
interesante programa que te 
permite generar la partitura, 
modificarla, escucharla, etc. 



: Í REH»»>EDITOR MUSICAL»» 

20 REM> > 

30 REH> CGSL SOFT SALAMANCA > 

40 REM> > 

50 REM»»»»»»»»»»»> 

60 REMIINICIALIZANDO 

70 CLEAR 10000: DEFINÍ A-Z 

90 DEFSTR J,K:DIM J(3,75) 

90 ON KEY GOSUB 2070/2080,2090,2100,2110 

,2120,2130.2140,2150,2160 

100 ON ERROR GOTO 4350 

110 ON STOP GOSUB 1550 

120 PRINT M P":G0T0 130:FOR W=l TO 10: KEY 

W, B ":NEXT 

130 COLOR 11, 1, 1: KEY OFF 
140 SCREEN 1,2,0: WIDTH 29 
150 CP=64:CR=4 

160 DATA 36,3,7,19,12,-32,-32,19,15,6,20 
,223,16,18,5,19,5,14,20,1,225,5,4,9,20,1 
5,18 

170 DATA 0,0,0,0,0,0,0,0,0,0,18,18,0,0,0 
,0 

180 DATA 0,0. 0,0, 0,0,0, 0,0, 0,0,78, 84,B4, 
84,78 

190 DATA 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, B, 78, 88, 88 
88,70 

200 DATA B,8,8,B,8,8,8,8,8,8,B,7B,FB,F8 
F8,70 

210 DATA 8,C,A,9,9,9,8,8,8,8,B,78,F8,F8 
F8,70 

220 DATA 8,C,A,9,9,C,A,9,9,8,8,78,F8,FB 
F8,70 

230 DATA 8,C,A,9,D,A,9,D,A,9,9,78,FB,F8 
F8,70 

240 DATA 0,0,0,0,0,B0,B0.B0,80,80,80,B0 
C8,88,90,E0 

250 DATA 0,0,0,0, 10,50,58,78, F0,D0,58,7B 
,F0,D0,50,40 

260 DATA FC,FC,FC, 0,0, 0,0, 0,0, 0,0, 0,0,0 
0,0 

270 DATA 0,0,0,0,FC,FC,FC, 0,0, 0,0, 0,0,0 
0,0 

280 DATA 10,8,4,6,7,E,1C,38,18,8,4,1E,32 
,30,18,C 

290 DATA 31.33, 1F, 3, 3, 2, 6, 4, C, 8, 18, 10,30 
,60,C0,0 

300 DATA 31,33, 1F, 3, 63, 66, 3E, 4, C , 8, 18, 10 
,30,60,C0,0 




310 DATA 31,33, 1F, 3, 63, 66, 3E, 6, C6, CC, 7C, 
18,30, 60,C0,0 
320 FOR H=0 TO 26 
330 READ V 

340 IF V>26 THEN PRINT SPC(V);:60T0 360 
350 PRINT CHR$(V+64); 
360 NEXT N 

370 FOR H=0 TO 14: FOR 9=1 TO 16 
380 READ K:M$=M$+CHR$(VAL("iH"+K)) 
390 NEXT Q 
400 SPRITE$(W)=H$ 

410 PUT SPRITE H, (32+Nll0,tM),15,H 
420 PUT SPRITE tt+15, (32+NI10, 140-MI4) ,15 
,N 

430 N*=":NEXT M 

440 FOR W=0 TO 3 

450 Y(W)=65:N(W)=65 

460 L(W)=4:L$(N)='4":V0(W)=15 

470 EX(W)=2:VN(W)=16:TI (H)=120 

480 NEXT M 

490 AL=1:PE=300:C=0 

500 GOTO 1570 

510 REMIEN EL PENTAGRAMA 

520 GOSUB 2370 

530 CLS: PRINT ■ stop="; 

540 IF ST THEN PRINT *on ELSE PRINT 1 

ÉH*| 

550 PRINT " ultiia nota" 
560 PRINT " esOaenu" 
570 PRINT " voli'jVO(C) 



580 LOCATE 9,4:PRINT "-" 
590 PRINT 1 
600 PRINT " 

610 PRINT " " 

620 IF CL THEN PRINT M fa"; ELSE PRINT 
IT; 

630 PRINT " ■ 

640 PRINT " ' 



-"; ELSE PRINT " 



650 IF CL THEN PRINT 
sol'; 

660 PRINT 1 " 

670 PRINT 1 " 

680 PRINT ■ 
690 PRINT 1 
700 PRINT 1 

710 PRINT: PRINT "resto de coipas" 

720 PRINT " ";CP\16;" ";C0;" ';SC! 

730 PUT SPRITE 15, (40,135), 15,3 

740 PUT SPRITE 16, (72, 135), 15,4 

750 PUT SPRITE 17, (104-8*(FIX(SC')OSC!) 

-8MSC!>1), 135), 15,5 

760 LOCATE 0,20:PRINT " canal 1 2 3 4" 

770 LOCATE 7+C$2, 21 : PRINT V 

780 PRINT " tiMpo'jTKC) 

790 S=STICK(0):T»STRIG(0)iK=INKEY$ 

800 TU=(K=CHR$(127> ) 

810 IF K=" OR K>CHR$(27) AND K<CHR$(32) 
THEN 930 

820 IF K»CHR$(24) THEN IF MCM THEN R( 
0=0 ELSE R(C)M 
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830 IF K=CHR$(9) THEN GOSUB 1520 

840 IF K=CHR$(27) THEN 1570 

850 IF K=CHR$(13) THEN LOCATE 7+Ct2,21:P 

RINT " " : C=C+1 : C=-Ct (C<4 > : LOCATE 7+CJ2,2 

IsPRINT V:RN»l:GOTO 1270 

860 IF K=CHR$(8) THEN FOR H=0 TO 75: IF L 

EN(J(C,W))>0 THEN PLAY J(C,H):NEXT 

870 IF K=CHR$(18) THEN IF P(C)=0 THEN P( 

0=1 ELSE P(C)M 

880 IF K=CHR$(12) THEN CL=- (CL=0) : FOR H» 
0 TO 3:N(N)=65-(CL=1)I2:Y(N)=65:NEXT:60T 
O 520 

890 IF K=CHR$(11) THEN VO (Cí =V0 (0 +1 : IF 

V0(C)>15 THEN VO(O=0 

900 LOCATE 6,2:PRINT VO(C) 

910 TI (C)=TI(C)-(TI(CX33) + (TI(C)>254)- 

(K=»=«)+(K=--') 

920 LOCATE 8,22:PRINT TI (C) : K=INKEY$: IF 

K=" S - OR «="-" THEN 910 

930 IF P(C) THEN IF L(C) >16 THEN P(C)=0 

940 F(C)=F(C)-(S=7 AND R(C)=0) 

950 IF F(C)>2 THEN F(C)=0 

960 X(C)=Y<C) 

970 Y(0=Y(C)+4I(S=1)-4I(S=5) 

980 IF Y(C)>106 OR YICX14 THEN Y(C)=X(C 

) 

990 IF R(C)=0 THEN PUT SPRITE 2,(88,Y(C) 
),15,EX(CX1 ELSE PUT SPRITE 2,(88,671,1 
5,EX(CX9 

1000 IF F(C) AND R(C)=0 THEN PUT SPRITE 
3,(78,Y(C)-3*(F(C)=1)),15,9-F(C) ELSE PU 
T SPRITE 3,(0,01,1,14 
1010 IF PIO THEN PUT SPRITE 0,(94,Y(C)+ 
Y(C)í(R(C)=l)-60t(R(C)=l)),15,0 ELSE PUT 
SPRITE 0,(0,01,1,14 
1020 N(C)=N(C) + (Y(C)>X(C))-(Y(CXX(0) 
1030 O(C)=55-(Y(C)-2-20KCL=l))/28 
1040 IF N(C)<65 THEN N(C)=71 ELSE IF N(C 
1)71 THEN N(C)=65 

1050 IF TU=0 OR R(C)<>0 THEN 1060 ELSE T 

U=0:PLAY -V"+STR$(VO(C) )+M$+"T"+STR$(TI( 

C))+"0"+CHR$(0(C))+"L"+L$(C)+CHR$(NíC) )* 

CHR$(32-14$(P(C)=l))+CHR$(32-2t(F(C)=2)- 

ill(F(C)>0)) 

1060 IF S=3 THEN 1470 

1070 IF T=0 THEN 790 

1080 REÑI INTERPRETA PENTAGRAMA 

1090 M$="":IF RT(C)>75 THEN 4200 

1100 IF VMC)OVO(C) THEN VH(C)=VOÍC):H$ 

="V+RIGHT$(STR$(V0(C)),l-(V0(O>9)) 

1110 IF TKC)OUT(C) THEN UT(C)=TI(C):M$ 

=H$+"T"+RIGHTi(STR$(TnC)),2-(TI(C)>99)) 

1120 IF L(C)OLU(C) AND R(C)=0 THEN H$=H 

$+-L"+L$(C):LU(C)=LíC) ELSE IF R(C)=1 TH 

EN H$=M$+"R"+L$(C) 

1130 IF 0(C)O0U(C) THEN M$=H$+"0"*CHR*( 
0(C)):OU(C)=0(C) 

1140 IF R(C)=0 THEN H$=H$+CHR$(N(0) 
1150 IF F(C) AND R(C)=0 THEN 
43-21 (F (0=2)) 



1160 IF P(C)=1 THEN H$=H$+"." 
1170 IF TC(C)+vN(C)+P(C)tVN(C)/2>CP THEN 
1420 

1180 LC(C)=LEN(J(C,RT(0)XLEN(H$) 

1190 IF LC(C)>250 THEN 4200 

1200 LOCATE 16,AL:PRINT " ■ 

1210 AL=AL+1:LE=12-LEN(H$) 

1220 IF AL>22 THEN AL=2 

1230 LOCATE 16,AL:PRINT "►"jNIjSPCíLE) 

1240 TC(C)=TC(C)+VN(C)+P(C)tVN(C)/2 

1250 J(C,RT(C))=J(C,RT(C))+H$ 

1260 N(HC)=0:PLAY H$ 

1270 R0=(CP-TC(C))/16 

1280 LOCATE 1,17:PRINT RO 

1290 C0=(CP-TC(C)-R0tl6)/8 

1300 LOCATE 5,17!PRINT CO 

1310 SC'=(CP-TC(C)-R0tl6-C0»8)/4 

1320 LOCATE 9,17:PRINT SC!;" " 

1330 PUT SPRITE 17, ( 104-Bt (^1 X (SC ! ) OSC ! 

)-8t(SC>l),135),15,5 

1340 IF RN THEN RN=0:6OTO 860 

1350 IF TC(C)OCP THEN 790 

1360 DB(C)=DB(CX1:TC(C)=0 

1370 IF DB(CX.CR THEN 1400 

1380 IF DB(0=CR THEN DB(C)=0:RT(C)=RT(C 

>♦! 

1390 TC(C)=0 

1400 LOCATE 0,17:PRINT " ";CP/16:" 0 
0' 

1410 GOTO 790 
1420 

1430 LOCATE 13, 0: PRINT "fuera de compás" 

1440 FOR W=0 TO 3000:NEXT 

1450 LOCATE 13,0:PRINT " ultiia nota" 

1460 GOTO 790 

1470 EX(C)=EX(0+1 

1480 IF EX(C)>5 THEN EX(C)=0 

1490 L(C)=2 A EX(C):VN(C)=2 A (6-EX(0) 

1500 L$(C)=MID$(STR$(L(C)),2,1-(L(C)>8)) 

1510 GOTO 790 

1520 IF St THEN- ST=0: COLOR,, 1 ELSE ST=1: 
COLOR,, 6, , , 

1530 IF ST THEN LOCATE 7,0:PRINT "on ":S 
TOP ON ELSE LOCATE 7,0:PRINT "off":STOP 
OFF 

1540 BEEP:RETURN 

1550 COLOR, 15: COLOR, 1 ^BEEP: RETURN 

1560 RENIEL MENU 

1570 FOR W=0 TO 31 

1580 PUT SPRITE W*(0,0) ,0,31:NEXT 

1590 GOSUB 2350: CLS 

1600 PRINT " opciones del ienu":PRINT 
1610 PRINT " 1-instrucciones' 
1620 PRINT " 2-bajar una octava" 
1630 PRINT " 3-subir una octava' 
1640 PRINT " 4-deteninar el colpas y/o 

compases por registro" 
1650 PRINT ■ 5-aodificaciones" 
1660 PRINT " 6-periodo envolvente y 

pauta envolvente" 



1670 PRINT " 7-ir al pentagrama" 
1680 PRINT " 8-archivar las notas" 
1690 PRINT ' 9-leer archivo de notas" 
1700 PRINT " 0-relanzar el programa" 
1710 PRINT: PRINT " pulse n2 de opción 

1720 K=INKEY$ 

1730 IF K>"9" OR K<"0" THEN 1720 ELSE IR 
=VAL(K) 

1740 ON IR 60T0 3690,1820,1820,2400,3410 

,3090,520,2550,2840 

1750 CLS 

1760 LOCATE 2,8:PRINT "pulse 

..para" 

1770 PRINT " esc ► menú" 

1780 PRINT " ins ► relanza 

r" 

1790 K= INKEYi 

1800 IF K=CHR$(27) THEN 1590 ELSE IF K=C 

HR$(18) THEN RUN ELSE 1790 

1B10 REMISUBIR-BAJAR OCTAVA 

1820 CLS:PRINT'escMenu";SPC(200); 

1830 PRINT "subir una octava: ": PRINT 

1840 PRINT " ¿que canal? 12 3 4" 

1850 IF IR=2 THEN LOCATE 5,7:PRINT "baja 

1860 K=INKEY$ 

1870 IF K=CHR$(27) THEN 1590 ELSE IF K>" 

4" OR K<M" THEN 1860 ELSE CH=VAL(K)-1 

1880 FOR H=0 TO 75 

1890 LY=LEN(J (CH,N) ) 

1900 IF LY=0 AND W=0 THEN 1590 

1910 IF LY=0 THEN LY=W-1:G0T0 1930 

1920 NEXT:LY=W-1 

1930 FOR W=0 TO LY 

1940 IF IR=3 THEN PO=INSTR(J(CH,N) ,"08") 

ELSE P0=INSTR(J(CH,W),"01") 
1950 IF POO0 THEN LOCATE 2,11:PRINT "no 

es posible subir mas":IF IR=2 THEN LOCA 
TE 16,11:PRINT "b aj a":GOTO 2050 ELSE 205 
0 

1960 NEXT 

1970 LOCATE 2,9:PRINT " canal";CH 
H¡« 

1980 LOCATE 6,11:PRINT "aguarde mensaje" 
1990 FOR OC=0 TO H:AQ=1 
2000 PO=INSTR(AQ,J(CH,OC),"0") 
2010 IF PO=0 THEN NEXT OC:LOCATE 4,11:PR 
INT "operación realizada":GOTO 2050 
2020 NU^VAL(NID$(J(CH,0C),P0+1,1)) 
2030 NID$(J(CH,0C),P0+1)=HID$(STR$(NU+1+ 
2t(IR=2)),2,l) 
2040 AQ=PO+1:GOTO 2000 
2050 FOR W=l TO'4500:NEXT;6OTO 1590 
2060 REHIMEZCLA DE CANALES 
2070 K="1110":6&TO»'2l70 
2080 K="1101";6OtQ 2170 
2090 K=-101Í-:6OTO 2170 
,2100'K="0111":GOTO 2170 
2110 K="U00";GQTQ 2170 
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Programa 



«19 ir "IU«(»"». I. I I. O m n|Dii«i.| 



> C(ascrn|o*(P«.|.l))-0«X>erHCN »5 



2120 K="0110»:GOTO 2170 
2130 r» l Hlt»rSOT0 2170 
2140 K="1010":GOTO 2170 
2150 K='1001":GOTO 2170 
2160 K="#101- 
2170 SOSUB 2350 
2180 LOCATE 7,19 
2190 FOR H»I TO 4 

2200 PFINT CHR$ ( 32+ ! 73 * í VAL ( H IDt ( K , « . 1 ) ) 
));" "; 
2210 NEXT 

2220 I=0:V(0»=0:V(1)=0¡V(2)=0 
2230 FOR W=l TO 4 

2240 ir HID$ (K, M f t)="I" THEN V(I)=W-1:!= 
W 

2250 NEXT 

2260 IF K3 THEN 2300 
22"? C 0R W=0 TC 75 

2280 PLAY J(V(0).tl),J(V(l>,W),J(V(2}.H> 

22"0 NEXT: GOTO 2330 

2300 FOR W=0 TO 75 

2310 PLAY JfV'0\K),J'V(l),W) 

2320 NEXT 

2330 SOSUB 2370:RETUPN 
2340 REMION/OFF DE FUNCIONES 
2350 FOR W=l TO 10:KEY (MI OFF 
2360 NEXT: RETURN 
2370 FOR H=l TO 10:KEY ÍW) ON 
2380 NEXT: RETURN 

2390 REH|ELECCION REGISTROS-NEGRAS 

0 CLS:C1=CP 
2410 LOCATE 10,0:PRINT "esc>i»enu":PRINT 
2420 PRINT - pulse n2 y/o letra deseada 

2430 LOCATE 5.7:PRINT "¿negras por coipa 



2440 PRINT: PRINT 



12 3 4 5 6 7 8 



"coapases por reg 



2450 LOCATE 4, 14: PRINT 
istro ( )' 

2460 PRINT ' aayusculas A>0" 

2470 LOCATE 0,14:PRINT CR 
2480 LOCATE 27, 14: PRINT CHR$(CR+64) 
2490 IF CR=1 THEN LOCATE 10,14:PRINT^ 
por " ELSE LOCATE 10,14:PRINT "es por" 
2500 LOCATE CP/8+5, 10:PRINT V 
2510 IF CIOCP THEN LOCATE Cl/8+5, 10:PRI 
NT " ":C1=CP 
2520 K=INKEY$ 

2530 IF K=CHR$(27) THEN 1590 ELSE IF K>" 
OR K<"1" THEN IF K>"0" OR K<"A" THEN 
2470 ELSE CR=ASC(K)-64:G0T0 2470 ELSE CP 
=VAL(K)tl6:60T0 2470 
2540 REhlGRABANDO DATOS 
2550 CLS:PRINT SPC (203) ; "pul se • 

ara";SPC(40);"esc Neni 

ins ►archivar notas 1 



2560 K=INKEY$ 

2570 IF K=CHR$<27) THEN 1590 ELSE IF K<> 
CHR$(18) THEN 2560 

2580 CLS:PRINT SPC (236) ¡ "contando regist 
ros" 

2590 A=0:B=0:C=0:D=0 
2600 FOR 0=0 TO 75 
2610 A=A-(LEN(J(0,Q))>0) 
2620 B=B-(LEN(J(1,Q))>0) 
2630 C=C-(LEN(J(2,Q))>0) 
2640 D=D-(LEN(J(3,Q))>0) 
2650 NEXT 

2660 IF A+B+C*D< 1 THEN 1590 

2670 CLS:PRINT SPC(239) ; "archivando nota 

s" 

2680 OPEN "CAS: MUSICA' FOR OUTPUT AS 1 

2690 PRINT fl,A,B,C.D 

2700 IF A=0 THEN 2730 

2710 FOR Q=0 TO A-l 

2720 PRINT I1,J'0,Q):NEXT 0 

2730 IF B=0 THEN 2?60 

2740 FOR 0=0 TO B-l 

2750 PRINT #1, J (l,Q) ¡NEXT Q 

2760 IF C=0 THEN 2790 

2770 FOR Q=0 TO C-l 

2780 P»INT ti. J(2. 0) iWEXT 0 

2790 IF D=0 THEN 2820 

2800 FOR 0=0 TO D-l 

2810 PRINT 11,J(3,Q):NEXT Q 

2820 CLOSE fl:C=0:GOTO 1590 

2830 REMICARGANDO DATOS 

2840 CLS: PRINT SPC (203); 

2850 PRINT "pulse — > — para" ; SPC (40) 

2860 PRINT "esc Nenu";SPC(ll) 

2870 PRINT "ins ~r ►borrar nenoria 

'i 

2880 PRINT SPC(7);» L Heer archivo" 

2890 K=INKEY$ 
2900 IF K=CHR$(27) THEN 1590 ELSE IF K<> 
CHR$(18) THEN 2890 



2910 CLS: ERASE J : DIM J (3, 73) 
2920 PRINT SPC(239); "leyendo archivos" 
2930 OPEN "CASiflUSICA" FOR INPUT AS 1 
2940 INPUT tl,A,B,C,D 
2950 IF A=0 THEN 2980 
2960 FOR 0=0 TO A-l ) 
2970 INPUT I1,J(0,Q):NEXT Q 
2980 IF B=0 THEN 3010 
2990 FOR 9=0 TO B-l t 
3000 INPUT tl,J(l,QhNEXT Q 
3010 IF C=0 THEN 3040 
3020 FOR Q=0 TO C-l 
3030 INPUT ll,J(2,Q):NEXT Q 
3040 IF D=0 THEN 3070 
•p 3050 FOR 0=0 TO D-l 

3060 INPUT ll,J(3,Q):NEXT O 
3070 CLOSE ll:C=0:GOTO 1590 



3080 REMIENVOLVENTES 
3090 CLS:PRINT SPC(7) ; "escMenu"; 
3100 PRINT SPC(17);"espacio)fijar datos" 

3110 PRINT SPCÍ14) ;"del^probar° 
3120 PRINT SPC(155);"canal ";C+1 
3130 PRINT SPC(34); "pauta env. ";PA 
3140 PRINT SPC(32);"periodo env. "¡PE 
3150 Y=10:Y1=10 
3160 K=INKEY$ 

3170 IF K=CHR$(27) THEN 1590 

3180 IF K=CHR$(127) THEN PLAY "S"+STR$(P 

A)+'H"*STR$(PEI100)*"T120L1O4A" 

3190 W=STRIG(0):X=Y 

3200 LOCATE 15,Y:PRINT "►" 

3210 IF YlOY THEN LOCATE 15,Y1:PRINT " 

":Y1=Y 

3220 IF W AND N0(C)<1 THEN Hf»»8"+HIDÍ(8 
TR$(PA),2)+"tr+!1ID$(STR$(PE),2)+"00":NO( 
C)=LEN(M$) ELSE GOTO 3280 
3230 J(C,RT(C))=J(C,RT(C))+M$ 
3240 LOCATE 2,4:PPINT "registrado: n ;t1$; " 

3250 PLAY M$ 

3260 FOR W=0 TO 4500: NEXT 
3270 LOCATE 2,4:PRINT SPC(26) 
3280 Y=Y+2t(Q=l)-2t(0=5) 
3290 IF Y<8 OR Y>12 THEN Y=X 
3300 IF Y<>8 THEN 3330 
3310 C=C-(0=3)+(Q=7) 
3320 IF C>3 THEN C=3 ELSE IF C<0 THEN C= 

0 ELSE LOCATE 16,8:PRINT C*l 
3330 IF YO10 THEN 3360 
3340 PA=PA-(Q=3)+(Q=7) 
3350 IF PA<0 THEN PA=0 ELSE IF PA>15 THE 
N PA=15 ELSE LOCATE 16,10:PRINT PA 
3360 Q=STICK(0) 
3370 IF Y=12 THEN PE=PE-(Q=3) +(Q=7)+íPE> 
654)-(PE<2) ¡LOCATE 16,12:PRINT PE;" " 
3380 IF (Q=3 OR 0=7) AND Y=12 THEN 3360 
3390 GOTO 3160 

3400 REMMODIFICACIONES 

3410 CLSsPRINT " esc>nenu" 

3420 LOCATE 0,10:PRINT "pulse n2 de cana 

1 deseado" 
3430 K=INKEY$ 

3440 IF K=CHR$(27) THEN 1590 
3450 IF K>"4" OR K<"1" THEN 3430 
3460 CH=VAL(K)-1 

3470 LOCATE 10,6:PRINT "canal";CH+l 
3480 LOCATE 12,10:PRINT "registro desead 
o" 

3490 CI=0:RT=0 

3500 LOCATE 7,B:PRINT "registro";" XX" 
3510 K=INKEY$ 

3520 IF K=CHR$(27) THEN 1590 
3530 IF K>"9" OR K<"0" THEN 3510 
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3540 CI=CIM:U=VAl(K) 
3550 RT=RT-M(CI=2)-W*10t(CI=l) 
3560 LOCATE 15+CI , 8 : PR INT K 
3570 IF RT>75 THEN 3490 
3580 IF CK2 THEN 3510 
3590 IF J(CH,RT)="" THEN 3410 
3600 LOCATE 0,0:PPINT "return> registrar 
información' 

3610 LOCATE 0,10:PRINT SPC(30) 

3620 LOCATE 25,22:PRINT "<-" 

3630 LOCATE 2,14:PRINT J(CH,RT) 

3640 LOCATE 0,14:INPUT J(CH,RT) 

3650 LOCATE 0,10¡PRINT ■ infonacion 

recogida" 

3660 FOR N=0 TO 4000: NEXT 
3670 GOTO 3410 
3680 REM| INSTRUCCIONES 
3690 CLSttRH 

3700 PRINT" esctnenu return>seguir" 
3710 PRINT: PRINT " infonacion tecni 
ca":PRINT 

3720 PRINT 1 S,H pauta y periodo" 

3730 PRINT " envolvente" 

3740 PRINT " V volumen" 

3750 PRINT ■ T ritió" 

3760 PRINT " L longitud de la" 

3770 PRINT - nota" 
3780 PRINT " (PUNTO).... auienta 1/2 la" 
3790 PRINT " longitud de la" 

3800 PRINT " nota" 

3810 PRINT " 1,2 redonda, blanca" 

3820 PRINT " 4,8 negra, corchea, " 

3830 PRINT " 16 semicorchea." 



3840 PRINT " 32 y f U5 a" 

3850 PRINT ■ 0 octava" 

3860 PRINT " R silencio" 

3870 PRINT " C,D,E,F....do,re,mi,fa," 
3880 PRINT " G,A,B sol,la,si" 

3890 PRINT " sostenido, bemol" 

3900 K=INKEYs 

3910 IF K=CHR$(27) THEN 1590 
3920 IF KOGHMÜ3) THEN 3900 
3930 IR«IR*1 

3940 LOCATE 5,2:PRINT "instrucciones"; 
3950 PRINT SPC(255);SPC(255);SPC(80) 
3960 ON IR 60T0 4040.4120,3690 
3970 LOCATE 0,4:PRINT " para las opcione 
s 0 a 6, 8, y 9, siga las indicaciones en 

pantalla y las observaciones" 
3980 PRINT " el nfi de compases por regis 
-tro debe ser tanto menor cuanto mas 

compleja sea la" 

3990 PRINT "música, para evitar posibles 
desbordamientos" 

4000 PRINT " al archivar la música tenga 
preparado el casette,y cuandolea archiv 
os, recuerde que la música en memoria se 
borrara" 

4010 PRINT " al modificar música aparece 
el signo <- para saber hasta donde pued 
e escribir" 

4020 PRINT " en la opción 6 use las te - 
cías de cursor para cambiar valores y 

pulse 'del' para que suene un 'la' con 
ellos' 

4030 GOTO 3900 



4040 LOCATE 1,4: PRINT " en el pentagrama 
puede colo-car las notas con el cursor 
superior e inferior" 

4050 PRINT " cursor izquierdo para poner 
bemol o sostenido y derecho para selec 
cionar la longitud de la nota" 
4060 PRINT " pulse 'select' para obtener 
los silencios de cada nota" 
4070 PRINT " toque la nota del pentagram 
apulsando 'del' y la música deun canal c 
on 'bs" 

4080 PRINT " de/in-cremente el tiempo co 
nías teclas '- +" 
4090 PRINT " shift-home, cambian de clav 
ey 'return' cambia de canal" 
4100 PRINT " 'tab' pasa de stop on a sto 
poff para detener la música alpulsar r ct 
rl-stop'" 
4110 GOTO 3900 
4120 LOCATE MiPRIifl " el puntillo se o 
btiene con pulsar 'ins'" 
4130 PRINT " el volumen aumentara de uno 

en uno pulsando 'home'" 
4140 PRINT " en el pentagrama puede toca 
ríos canales combinados usándolas teclas 

de función" 

4150 PRINT: PRINT " Fl canales 1.2.3" 
4160 PRINT " F2", "1,2,4"," F3\ "1,3,4", 
F4", "2,3,4"," F5","l,2" 
4170 PRINT " F6","2,3"," "","3,4"," F8" 
,"1,3"," F9","l,4"," F10V2.4" 
4180 GOTO 3900 

4190 REHHTRATAHIENTO ERRORES 
4200 FOR W=0 TO 31 
4210 PUT SPRITE M. (0,01,0,31 
4220 NEXT:CLS 

4230 PRINT " escMenu";SPC(223) 
4240 IF RT(C)<76 THEN 4300 
4250 PRINT "las 75 cadenas del canal";C* 
1 

4260 PRINT "han sido ya utilizadas y la" 
4270 PRINT "ultima de ellas contiene" 
4280 PRINT: PRINT J(C,75) 
4290 GOTO 4330 

4300 PRINT " la codificación del ultimo 

compás supera en";LC(C)-250 
4310 PRINT " caracteres la capacidad 

de almacenamiento" 

4320 PRINT " no selecciono bien el nfi 
de compases por registro" 
4330 K=INKEY$ 

4340 IF K=CHR$(27) THEN 1590 ELSE 4330 

4350 FOR W=0 TO 31 

4360 PUT SPRITE W, (0,0) ,0,31 

4370 NEXT 

4380 CLS:PRINT " escNenu" 
4390 PRINT " home>detener programa' 
4400 LOCATE 2,10:PRINT "provocado error 
tipo" ; ERR 



35 



4410 LOCATE 2,11:PRINT "en la linea nuie 
ro";ERL 

4420 RESUME 4430 
4430 K=INKEY$ 

4440 IF K=CHR$(27> THEN 1590 

4450 IF K=CHR$(11) THEN CLS ELSE 4430 

4460 LOCATE 2,10:PRINT 'si no introduce 

catbios en las lineas de prograia puede" 

4470 PRINT "recuperar la ejecución con u 

n' 

4480 PRINT: PRINT " goto 1560" 

4490 END 
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JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 

QUINIELAS 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 

PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas. 
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- % 


1880 


- 12 


2460 


-123 


3040 


-192 


3620 


-244 


4200 


-224 


1890 


- 31 


2470 


-146 


3050 


-244 


3630 


-247 


4210 


- 51 


1900 


-161 


2480 


-209 


3060 


- 32 


3640 


-233 


4220 


- 92 


1910 


- 91 


2490 


-226 


3070 


-115 


3650 


- 16 


4230 


-197 


1920 


-172 


2500 


-161 


3080 


- 0 


3660 


- 58 


4240 


-212 


1930 


- 87 


2510 


- 46 


3090 


- 3 


3670 


-246 


4250 


- 5 


1940 


-159 


2520 


- 38 


3100 


- 77 


3680 


- 0 


4260 


- 21 


1950 


- 32 


2530 


-168 


3110 


-191 


3690 


-103 


4270 


-144 


1960 


-131 


2540 


- 0 


3120 


- 66 


3700 


-146 


4280 


-192 


1970 


-135 


2550 


-150 


3130 


-167 


3710 


-215 


4290 


-145 


1980 


- 0 


2560 


- 38 


3140 


- 96 


3720 


-151 


4300 


-139 


1990 


- 17 


2570 


-119 


3150 


- 45 


3730 


- 27 


4310 


-208 


2000 


- 37 


2580 


- 36 


3160 


- 38 


3740 


-253 


4320 


- 62 


2010 


-221 


2590 


-184 


3170 


-249 


3750 


- 32 


4330 


- 38 


2020 


- 57 


2600 


- 6 


3180 


-126 


3760 


-233 


4340 


-220 


2030 


- 50 


2610 


-190 


3190 


- 36 


3770 


-135 


4350 


-224 


2040 


-203 


2620 


-193 


3200 


- 89 


3780 


-190 


m 


- 51 


2050 


- 62 


2630 


-196 


3210 


-237 


3790 


-209 


4370 


-131 


2060 


- 0 


2640 


-199 


3220 


-224 


3800 


-135 


4380 


-109 


2070 


-148 


2650 


-131 


3230 


-217 


3810 


- 62 


4390 


-141 


2080 


-148 


2660 


-142 


3240 


-212 


3820 


-167 


4400 


- 15 


2090 


-148 


2670 


- 51 


3250 


- 50 


3830 


-235 


4410 


-155 


2100 


-148 


2680 


- 93 


3260 


- 48 


3840 


- 98 


4420 


- 20 


2110 


-147 


2690 


-128 


3270 


- 40 


3850 


-110 


4430 


- 38 


2120 


-147 


2700 


-104 


3280 


-218 


3860 


- 73 


4440 


■249 


2130 


-147 


2710 


-241 


3290 


-192 


3870 


- 26 


4450 


■134 


2140 


-147 


2720 - 41 


3300 


-210 


3880 


- 70 


4460 ■ 


■103 


2150 


-147 


2730 


-135 


3310 


-166 


3890 


-220 


4470 ■ 


■ 67 


2160 


- 64 


2740 


■242 


3320 


-223 


3900 


- 38 


4480 - 


37 


2170 


-210 


2750 


- 42 


3330 


-208 


3910 


-249 


4490 - 


129 


2180 


- 62 


2760 


-166 


3340 


- 66 


3920 


-233 






2190 


-200 


2770 


•243 


3350 


-118 


3930 


- 40 






2200 


-244 


2780 ■ 


■ 43 


3360 - 67 


3940 


- 0 






2210 


-131 


2790 ■ 


198 


3370 -181 


3950 


-154 






2220 


- 34 


2800 ■ 


244 


3380 


-205 


3960 -178 


TOTAL: 


2230 


-200 


2810 - 44 


3390 -251 


3970 


-203 


56471 















Programa ^mm^^m 

GRAFICOS 

Por Marcelo Tello 

Para los principiantes nada mejor que estos 
pequeños programas de gráficos. Son 
fáciles de copiar y notables en sus 
resultados. 



10 5CPEEN2:CLS:COL0P 13, 1, !:QPEN"5RP: "AS 
II 

60 FOR X=40TQ190 STEP20 
70 FOR Y=20TO 190 STEP 20 
75 C=INT!RND(1)I15)*1 
80 LINE(0,0)-(X,Y),C 
90 LINEí255,0)-(X,Y),C 
!00 NE.XT: NEXT 
110 BOTO 110 



10 BCREEN 2i OPEN-SRPi "AS«1 i CL9i COLOR 1,4 
,4 

40 CIRCLE(90,50),30,5,,,.6 
50 CIRCLE (130,50) , 30, 1, , , .6 
60 CIRCLE(170,50),30,2,,,.6 
70 CIRCLE(110,70),30,10,„.6 
80 CIRCLE(150,70),30,6,,,.6 
90 FOR 1=1 TO 2 

100 PSET ( 14-80, 110): PRINTil , -BARCELONA' 92 
■ 

110 CIRCLE(130,U3), 80,14,,, .1 
120 NEXT 
130 60T0 130 



10 SCREEN2: CLS: COLOR 10,1,1 
20 FOR B=l TO 280 STEP7 
30 C=INT(RND(1)I15) 
40 LINEÍB, 10)-(255,B) 
50 LINE(10,B)-(B,190) 
60 LINE(10,190)-(B,B),C 
70 LINE(255,10)-(B,B),C 
80 NEXT 
90 60T0 90 



29 
32 

SCREEN 2 
5* CLS 

M EsWTlWlDtDtSil 
73 f--1NT'PND(1)»50) 
e0 6=lNTMDU)t5i) 
90 H=!NT'.»'Jt50) 
m FOR m T 0 1 STEP -1 

6;H=H:" 

130 NEXT: NEXT 

140 FQP I=i TOlflMsNEXT 

150 60T0 50 
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Programa , 



■por Alfonso López Ruizi 



AVENTURA 
ESPACIAL 



Destruye en el menor tiempo 
posible el máximo número de 
naves enemigas. Y recuerda, 
sólo el tiempo es tu enemigo. 



10 rem tmmmutmmmmm 

20 REM I AVENTURA ESPACIAL M S X t 
30 REM t t 
40 REM t (c) ALFONSO LOPEZ RUIZ t 

50 pem mimmmmmmmm 

60 GOSUB 3390 

70 CLS:C0L0P 2,Í,!:SCRI£N 2 

CLEAR 2000 
90 OPEN "GPP:"F0P OUTPUT AS #1 
100 FOR TE=15 TO 2 STEP -2 
110 FOP GH=0 TO 150;NEXT GH 
120 COLOR TE 

130 DPAW "BM15,50U30R20D30BM15.35P20BM45 
,20D20F10E10U20BM75,50C30R20BM^5,35R14BH 
75.50P20" 

140 DPAW "BM105,50U30F1BU18D30BM142,50U3 
ÍL1IR20" 

150 DRAW ,, BM162,20D30R17U30BM1S9,50U30R1 

3D:6L:í:P15BM215.50U30R18O30BM21^,33R18" 

160 DPAW "BM15.115U30R20BM15,100R15BM15, 

;:5F;20BM45.115R19U15L19U15R19" 

170 DPAW "BM75, I 1 5U30R20D 1 5L20BM 1 03 , USU 

T0R20D30BM105,!00R20' 

180 DRAW M B«152, I !5L 1BÜ30R1BBMI62, 115R1? 

L9U30L9R18BM189,115'J30R17D30BM1B9,100R17 

BM233, 115L1BU30" 

190 COLOR 12:PRESET (61 . 150) :PRINT II, "B 
Y ALFONSO LOPEZ":PRESET (85, 175) :PRINT i 
l."M S X 1985" 

200 K$=INKEY$:IF «<="" THEN 210 ELSE GOT 
0 230 

210 NEXT TE 

220 GOTO 100 

230 CLS: COLOR 3 

240 LINE (10,0)-(245.190),6,B 

250 LINE (10,15)-(245,15),6,B 

260 PRESET (16,5):PRINT II, "AVENTURA ESP 

ACIAL (c) A.L.R." 

270 PRESET (35.60>:PRINT tl,"<l> CONTROL 
POP TECLADO" 

280 PRESET (35,90):PR1NT #1, "<2> CONTROL 
POR JOYSTICK" 

290 PRESET (65, 125) SPRINT ti, "PULSA <1> 

0 <2>" 

300 J$=INKEY$:IF J$="" THEN 300 
310 IF J$="l" THEN V=0 
320 IF J$="2" THEN V=l 




330 IF J|«-l" OR I$»»2" THEN ELSE 300 

340 rem tmmtmmtt 

350 REM t INICIO JUEGO $ 
360 REM tmmtmmtt 

370 SC=0:ST=1:NAM 

380 SCREEN 2, 2, 0: CLS: COLOR 15,1,1 

390 A$=CHR$ (fcH0) +CHR$ (fcH3) +CHRI (&H3) +CHR 

$ ( ltH3 ) *CHR$ ( &H7 ) *CHR$ ( ítHF ) +CHRI ( ÍH3F ) +CH 

RKIH3F) 

400 B$=CHR$ (ItHFB) +CHR$ (&HE3) +CHR$ (ÍHE3) + 
CHR$ (&H80) ♦CHRi UH80) +CHRI (ÍH80) +CHRI (fcH 
0)+CHR$(&H0) 

410 C$=CHR$(fcH0)+CHR$(iH80)+CHR$(fcH80)+C 
HR$ (fcH80) +CHRI (iHC0) *CHR$ (IHE0) *CHR$ (l¡HF 
B)+CHR$(&HF8) 

420 D$ S CHR$ (&HBE) +CHRI (fcHBE) +CHRI (&H8E) ♦ 
CHRI (&H2) +CHRI (iH2) +CHRI (iH2) *CHR$ (fcH0) ♦ 
CHRKIHf ) 

430 SPRITE$(0)=A$+B$+C$+D$ 

440 E$=CHR$ (ÍH20) +CHR$ (Í.H84) +CHR$ (&H0) +C 



HR< (fcH29) +CHRI (&H2) +CHRI (lcH90) +CHR$ (l¡H4) 
♦CHR$(Í.H41) 

450 R$=CHR$<ScHt2) +CHR$ ( StH 1 ) +CHR$ ( StH48 ) +C 
HR$ (&H21 ) +CHRI (*H8) +CHRI (IH2) +CHRI (M20) 
♦CHRItWBB) 

460 W$=CHR$ (&H8) +CHR* ( &H40) +CHR$ (&H25) +C 
HR$ (SeH0) +CHR$ (&H40Í +CHR$ (ítH84) +CHRS ÍÍ.H10 
)+CHR$(iH41) 

470 9$=CHR$ (fcH8) +CHR$ (&H44) +CHRI (ítH10) +C 
HR$ í fcH4 ) +CHR$ (iH20> +CHRÍ («tH4> +CHR» (8tH41 ) 
♦CHR$UH8) 

480 SPRITE$(1)=E$+R$+W$+Q$ 

490 SPRITES (2) =CHR$ í ítHl ) +CHRf ( ItHl ) +CHR$ ( 

MI ) +CHRI (ItHl ) *CHR$ ( «cHl ) +CHR$ (ItHl ) +CHRI ( 

ÍH1)*CHR$(M0) 

500 L$=CHR$(ltH20)+CHR$(ítH53)+CHR$(iH8F) + 
CHR$(ítHBE)+CHR$ ( ítH7F) +CHR$ (Í.H77) +CHRS (M 
7B)+CHRf (&H3F) 

510 I$=CHR$(iH3E)+CHR$(iH4C)+CHR$(iHB4)+ 
CHR$ UH52) +CHR$(ícH8) +CHR$ (&H10) +CHR$ (ítH2 
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0)+CHRt(tH0) 

520 H$<HR$(*H4)+CHR$UHCA)*CHR$(iHFl)*C 
HR$ (&H7D) +CHR$ (ItHFE) +CHR$ (&HEE) +CHRÍ (&HD 

E) +CHR«(fcHFC) 

530 F$=CHR$ (ícH7C) +CHR* (ÍH32) +CHRI I4H2D* 
CHRt (&H4A)+CHR$(íiH10) +CHR$ í IH8 ) +CHRS ( &H4 
KCHRf(tHf) 

540 SPRITE$(3)=L$+I$+M$+F$ 

550 H$=CHR$ ( iH3) +CHR$ ( fcH7) +CHRI (IH1F) +CH 

R$ ( fcH 1 D ) +CHR$ ( ítH3F ) +CHR$ ( ltH7F ) +CHR$ ( ítH3F 

KCimt(IHSE) 

560 P$=CHR$ (&HBC) +CHR$Í tH86) +CHR$ (&H49) ♦ 
CHR$ ( &H90) +CHRI (IH88) +CHRI (W44) +CHR$ (IH 
8)*CHRI(M10) 

570 0$=CHR$ (fcHCI) +CHRS UHE0) +CHRS (ÍHF8) + 
CHRI (tcHBB) *CHRf IIHFC) +CHRS (íeHFE) +CHR* (ItH 
FC)+CHR$(fcH7A) 

580 U$=CHR$(fcH31)+CHR$(iH61)+CHR$(M92) + 
CHR$ (&H9) *CHR$ (&H1 1 ) +CHRI (IH22) +CHRI (fcHl 
#)+CHR$(ttHB) 

590 SPRITE$(4)=H$+P$+0$+U$ 

600 N$=CHR$ (&H7) +CHR$ (StHB) +CHR$ (ítHF) +CHR 

$ (ltH3B) +CHRI (ItHlE) +CHRI (IH27) +CHRI (IH7F ) 

♦CHRMH3F) 

610 K$=CHR$ í &H7B) +CHR$ (&H26) +CHR$ í &H1F) + 
CHR$ (ItHD) +CHRI (iHlF) +CHRI (IH15) +CHR$ (ítHB 
)+CHR$(iHl) 

620 S$=CHR$ (M50) +CHR$ (&HAC) +CHR* (&HCB) + 
CHR$ (*HFE) +CHR$ (&HE4) +CHR$ (M78) +CHRS (IH 
E4)*CHR$(«tHFE) 

630 Z$=CHR$ I StHBC) +CHRS ( StHEF ) +CHRS ( ÍH58 ) ♦ 

CHR* (MFC) *CHR$ (ItHFA) +CHRI (&HF6) +CHRf(tH 

98)+CHR$(!(HC0) 

640 SPRITE$(5)=N$+K$+S$+Z$ 

650 X$=CHR$<ííH0) -t-CHR$(ttHl) +CHR$(iH7) +CHR 

l(IHF)+Clffil(IH3F)*CHM(liHÍF)*CHRt(IHÍF>* 

CHR$(&H3F) 

660 G$=CHR$(iH7F)+CHR$(&HlF)+CHR$(iH3F)+ 
CHR$(WlF)*CHR$(W3F)+CHR$(líHiF)+CHR$(ltH 

F) +CHR$(&H7) 

670 T$=CHR$ (MCI) +CHR$ (&HB0) +CHR$ ( IHF8) ♦ 
CHR$ (íeHFC) fCHMí&HFC) +CHR$ (&HF8) +CHR$ (Mi 
FE) +CHR$ (iHFB) 

680 V$=CHR$(&HFC) +CHR$ (&HFE) +CHRS (&HFC) ♦ 

CHR$ tttHFE) +CHR$ (MFC) +CHRI (StHFC) +CHR$ (IN 

F6)*CHR$(*H60> 

690 SPRITE$(6)=X$+G$+T$+V$ 

700 SPRITEI(7)=CHR$(&H81)+CHR$(fcHBB)*CHR 

$ (WE7) +CHRI (WFF) +CHRI (WDB) +CHRI ( W99) 

+CHR$(&H81)+CHR$(iH0) 

710 FH$«CHR$(W0) +CHR$ (IHi) +CHR$ (MFF ) +C 

HR$ (iHFF) +CHRI ( iHFF) +CHRI (íiHFF) +CHR$ (iHF 

F)*CHR$(*H0> 

720 QW$=CHR$(í,H0)+CHR$UH0)*CHR$(&H0)*CH 
R$(ltH0)+CHR$(l t H0)+CHR$(iH0)+CHR$(iH0)+CH 
Rf(IHf) 

730 ED$=CHR$ ( &H0 ) +CHR$ ( fcH0 ) +CHR$ ( &HFF ) +C 
HR$ ( WFF ) +CHRI ( WFF ) +CHRI ( WFF ) +CHRI ( fcHF 
F)+CHR$(fcH0) 

740 SPRITE! (8) =FH$+QN$+ED$ 



750 IF BH=2 THEN GOTO 1470 

760 IF BH=3 THEN GOTO 2840 

770 IF BH=4 THEN GOTO 1980 

780 OV=0:X=100:Y=140:DI=130:T=20:T!1=230: 

TQ=215 

790 TIHEM40 

800 LINE (4,0) - (256, 170) ,7,B 

810 FOR P=0 TO 110 

820 FR=INT(RND(l)ll4)+2 

830 Q=246tRND ( 1 ) +5: W=170tRND ( 1 ) 

840 PSET (0,H),FR 

850 NEXT P 

860 CIRCLE (50,40) , 10,3, , , 1:PAINT (50,40 
>,3 

870 CIRCLE (200,120),12,8,,,1:PAINT (200 
,120), 8 

880 PRESET (20, 175):PRINT II, "SCORE: " ; SC 

890 PRESET (20, 185) :PRINT ll,"TIHE' 

900 LINE (75,185)-(205,191),5,BF 

910 ON SPRITE GOSUB 1170 

920 6H=INT(RND(l)t210M5 

930 GJ=INT(RND(l)tl3)+2 

940 HMNT(RND(l)t2) 

950 IF HT=1 THEN GL=3 ELSE GL=4 

960 T*20 

970 SPRITE ON 

980 D=STICK(V) 

990 PUT SPRITE 0, (X,Y),4,0 

1000 IF D=3 THEN X=X+7: IF X>235 THEN X=2 

35 

1010 IF D=7 THEN X=X-7: IF X< 10 THEN X=10 
1020 IF STRIG(V) =-1 THEN EW=X: BEEP: BEEP: 
FOR DI=130 TO 0 STEP -6:PUT SPRITE 2, (EN 
,DI),6,2:NEXT DI:IF DK0 THEN PUT SPRITE 
2, (255, 191), 1,2 
1030 N=INT(RND!l)t5) 
1040 Q=INT(RND(l)t5) 
1050 J*INT(RNOU)IS) 
1060 K-!NT(RND(l)f5) 

1070 IF N<0 THEN 6H=GH+20:IF GH>235 THEN 
6H=200 

1080 IF N>Q THEN GH=GH-20:IF GH<15 THEN 
GH=35 

1090 IF J<K THEN T=T-5:IF T<10 THEN T=10 
1100 IF J>K THEN T=T+5: IF T>120 THEN T«1 
20 

1110 PUT SPRITE 1,(6H,T),GJ,6L 
1120 TI=TIME/20 

1130 LINE (TH-TI,185)-(TQ,191),1,BF 
1140 TH=(TH-TI):IF TH<76 THEN GOTO 1330 
1150 GOTO 980 

1160 REM ItH EXPLOSION Hit 
1170 SPRITE OFF 

1180 PUT SPRITE 2, (255,191), 1,2 
1190 SOUND 6,0:SOUND 7,7 
1200 SOUND 8,16:S0UND 9,16 
1210 SOUND 10, 16: SOUND 12,56 
1220 SOUND 13,0 
1230 FOR RE=0 TO 20 

1240 PUT SPRITE 1, (6H,T) , 10, IsPUT SPRITE 



1,(6H,T),8,1:PUT SPRITE 1, (GH,T) , 10, 1 
1250 NEXT RE 

1260 PUT SPRITE 1, (255, 191) , 1, 1 

1270 SPRITE ON 

1280 IF PA=3 THEN GOTO 3150 

1290 IF PA*4 THEN 60T0 2510 

1300 SC=SC*100:LINE (70, 174) - ( 160, 182) , 1 

, BF: PRESET (68, 1 75) : PRINT 11, SC 

1310 DV«OV*liIF OV«U THEN GOTO 1390 

1320 RETURN 920 

1330 REM tttt FUERA DE TIEMPO HH 

1340 FOR 1=0 TO 500:NEXT I 

1350 SPRITE OFFjCOLOR 3:PRESET <70,90):P 

RINT 11, "FUERA DE TIEMPO" 

1360 NA=NA-i: PRESET (168, 175) :PRINT II, ■ 

NAVES:"; NA: IF NA<1 THEN FOR 1=0 TO 2000: 

NEXT I:GOTO 2690 

1370 m 1=0 TO 2000:NEXT I 

1380 GOTO 380 

1390 FOR 1=0 TO 10: BEEP: BEEP: NEXT I 

1400 IF TH<80 THEN P=600 

1410 IF TH>80 THEN P=100 

1420 BO=900-P: PRESET ( 168, 175) : PRINT II, 

"BONUS";BO 

1430 SC*SC+BQ:LINE (70, 174)-<160, 182) , i, 
BF: PRESET (68, 175) : PRINT II, SC 
1440 FOR 1=0 TO 1000:NEXT I 
1450 SPRITE 0FF:BH=2 
1460 GOTO 2610 

1470 X=130:Y=150:AS=191:GH=142 
1480 TIME=180 

1490 LINE (59,0X255, 191), 7, B 

1500 PRESET (10,5) ¡PRINT #1, "TIME" 

1510 LINE (21,20)-(26,130),5,BF 

1520 PRESET ( 10, 145) :PRINT II, "SCORE* 

1530 PRESET (2,157):PRINT ll.SC 

1540 ON SPRITE GOSUB 1750 

1550 SPRITE ON 

1560 D=STICK(V) 

1570 PUT SPRITE 0,(X,Y),4,0 

1580 IF D=3 THEN X=X+4:IF X>235 THEN X=2 

35 

1590 IF D=7 THEN X=X-4: IF X<63 THEN X=63 
1600 AS=AS+7 

1610 PUT SPRITE 5,(65,AS),10,5:PUT SPRIT 
E 6,(80,AS+50),11,6:PUT SPRITE 27,(90, AS 
♦1),11,6 

1620 PUT SPRITE 7, (112, AS+35) , 10, 5:PUT S 
PRITE 8, (145, AS+60) , 10.5 
1630 PUT SPRITE 10, (170, AS+8) , 11,6:PUT S 
PRITE 11, (210, AS+30) ,11,5 
1640 PUT SPRITE 12, (180,AS+65) ,11,6 
1650 PUT SPRITE 13, (228, AS+70) , 10,5 
1660 PUT SPRITE 14, (130,AS+80> , 11,6:PUT 
SPRITE 15,(100,AS+100),10,5:PUT SPRITE 1 
6, (195,AS+?2), 10,5 
1670 PUT SPRITE 18, (64, AS-t- 1 10) , 11,6 
1680 PUT SPRITE 19, í 150, AS+130) , U,5:PUT 
SPRITE 20,(210,AS+136),10,6 
1690 PUT SPRITE 21, (80,05+150), 11,5 
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Programa 



«ía ir nlo«(Pt.|.i)' o C» niot(P».|.i 



1700 PUT SPRITE 22,(110,AS*215),10,6:Pin 
SPRITE 23,(165,AS+180),10,5:PUT SPRITE 
25, (18B,AS+220) ,11,5 
1710 TI=TIME/30 

1720 LINE (21,6H)-(26,GH-TI),1,BF 

1730 FR=(5H-TI):IF FR<20 THEN GOTO 1920 

1740 BOTO 1560 

1750 REM tt*$ EXPLOSION »t* 
1760 SPRITE OFF 

1770 SOUND 0,0:SOUND 1,5:SQUND 2,0 

1780 SOUND 3,13:S0UND 4,255:S0UND 5,15 

1790 SOUND 6,30:SOUND 7,0 

1800 SOUND 8,16:S0UND 9,16:S0UND 10,16 

1810 SOUND 11,0:SOUND 12,5:SOUND 13,0 

1820 SOUND 12,56:S0UND 13,0 

1830 FOR T«i TO 20 

1840 PUT SPRITE 0, (X, Y) , 10, 1:PUT SPRITE 

Í,(X,Y),6,1:NEXT T 

1850 PUT SPRITE 0, (0, 191) , 1, 1 

1860 FOR 1=0 T 0 1000:NEXT I 

1870 IF PA=3 THEN 60T0 3180 

1880 IF PA=4 THEN GOTO 2550 

1890 IF P4=4 THEN GOTO 2550 

1900 NA=NA-1:PRESET (10, 170) :PRINT 11, "N 

AVES":PRESET (10, 183) ¡PRINT ll,NA:IF NA< 

1 THEN FOP 1=0 TO 2000¡NEXT I: GOTO 2690 

tWI FOR 1=0 TO 1000:NEXT I:GOTO 380 

1920 SPF'ITE OFF: FOR 1=0 TO 10: BEEP : BEEF : 

NEXT hPRESET (10, 170) :PRINT #1, "BONUS" 

1930 BO=2000:PRESET (2, 183) ¡PRINT II, BQ 

1940 SC=SC+BO:LINE (5, 155)-(47, 166) , 1,BF 

¡PRESET ;2,157)¡PRINT II, SC 

1950 FOR 1=0 TO 1000:NEXT I 

1960 BH=3 

1970 60T0 2610 

1980 TIME=0 

1990 FOR 1=0 TO 100 

2000 AD=240IRND ( 1 ) +6: TR=1 90IRND ( 1 ) 

2010 FG=INT(RND(l)tl3)*2 

2020 PSET (AD,TR),FG:NEXT I 

2030 CIRCLE (253, 10), 50, 4 

2040 PAINT (253, 10), 4, 4 

2050 61=3.1415931/180' 

2060 CIRCLE (255, 10), 70, 14,61130, ,.25 

2070 CIRCLE (255,10),80,14,GItl00,,.35 

2080 PAINT (255,35), 14, 14 

2090 CIRCLE (50,60) ,17,8, , , 1 : PAINT (50,6 

0),8 

2100 CIRCLE (170,100), 12,10:PAINT (170,1 
00), 10 

2110 CIRCLE (126,350),190,3:PAINT (126,1 
91), 3 

2120 LINE (2,0)-(256,191),7,B 

2130 LINE (5,2)-(90,ll),l,BF 

2140 PRESET (6,2) :PRINT II, "SCORE: ";SC 

2150 X=100:Y=10:NQ=118:r1K=175:LL=l 




2160 D=STICK(V) 

2170 PUT SPRITE 0,(X,Y),4,0 

2180 IF D=3 THEN X=X+1: IF X>235 THEN X=2 

35 

2190 IF D=7 THEN X=X-1:IF X<10 THEN X=10 
2200 IF D=l THEN Y=Y-.5 
2210 IF ü=2 THEN X=X+i:Y=Y-,5 
2220 IF D=8 THEN X=X-l:Y=Y-.5 
2230 Y=Y+1: IF Y> 173 THEN P4=4:G0T0 1750 
2240 PUT SPRITE 10, (NQ,HK),1,8 
2250 IF X=NQ+2 AND Y>168 THEN FOR 1=0 TO 
5: BEEP: BEEP: NEXT I:FOR 1=0 TO 1000:PUT 
SPRITE 10,(230,191),1,8:FOR U=0 TO 600:N 
EXT U:GOTO 2290 

2260 IF LL=1 THEN NQ=NQ-1:IF NQ<45 THEN 
LL*2 

2270 IF LL=2 THEN NQ=NQ+1:IF NQ>195 THEN 
LL=1 

2280 GOTO 2160 

2290 X=X:Y=170:DI=155:OV=0:C1=0:B2=0 

2300 ON SPRITE GOSUB 2500 

2310 SPRITE ON 

2320 GH=INT(RND(1)*225)+10 

2330 GJ=INT(RND(l)tl3)*2 

2340 F0=INT(RND(1)I2) 

2350 IF FO=l THEN GL=3 ELSE GL=4 

2360 T=20:IF Cl=l THEN 6J=1 

2370 D=STICK(V) 

2380 PUT SPRITE 0,(X,Y),4,0 

2390 IF D=3 THEN X=X+7:IF X>235 THEN X*2 

35 



2400 IF D=7 THEN X=X-7:IF X<10 THEN X=10 

2410 IF STRIG(V)=-1 THEN E=X: BEEP: BEEP: F 

OR DI=155 TO 0 STEP-6:PUT SPRITE 2,(E,DI 

),6,2:NEXT DI: IF DK0 THEN PUT SPRITE 2, 

(255,0), 1,2 

2420 N=INT(RND(l)t5) 

2430 Q=INT(RND(l)t5) 

2440 IF N>Q THEN 6H=GH*12:T=T+3:IF 6H>23 
0 THEN 6H=210 
2450 IF N<Q THEN GH=6H-12:T=T+3: IF GH<10 
THEN GH=40 
2460 T=T+3 

2470 PUT SPRITE 1, (GH,T) ,GJ,GL 
2480 IF T>155 THEN PA=4:60T0 1750 
2490 GOTO 2370 

2500 SPRITE OFF:PA=4:60TO 1161 

2510 SC=SC*100:LINE (50, 1) -(100, 1 1 ) , 1 , BF 

¡PRESET (50,2):PRINT II, SC 

2520 OV=OV+l:IF OV=10 THEN FOR 1=0 TO 20 

00:NEXT IsSPRITE OFF: BH-1 : PA=1 : BOTO 2780 

2530 B2=B2+1:IF B2=6 THEN Cl=l 

2540 GOTO 2310 

2550 NA=NA-1: COLOR 15: PRESET (95,170):PR 

INT II, "NAVES: ";NA:IF NA<1 THEN FOR 1=0 

TO 2000: NEXT 1 : 60T0 2690 

2560 FOR 1*0 TO B00:NEXT I 

2570 LINE (80,165)-(170,178),3,BF 

25B0 IF P4=4 THEN 2150 

2590 IF PA=4 THEN 2300 

2600 GOTO 2310 



40 



2610 

2620 

EEP 

2630 

AFCC 1 

2640 

2650 

;ST 

2660 

2670 

2680 

2690 

2700 

EEP 

2710 

2720 

2730 

R" 

2740 
2750 



REM tttt FASE SUPERADA mt 
SCREEN 0:CLS: COLOR 15, 1, 1 : KEY 0FF:B 

PLAY "V12L5T25504CFACFADDGBDDGBBAFC 

LOCATE 10,7:PRINT "SC0RE:";SC 
ST=ST+1:L0CATE 10,10:PRINT "STAGE: " 

LOCATE 10,13:PRINT "NAVES: " ; NA 
FOR 1=0 TO 2000: NEXT I 
GOTO 380 

REM tttt FINAL PARTIDA tttt 

SCREEN 0:CLS:COLOR 15, 1,1: KEY OFF: B 

LOCATE 10,5:PRINT "SCORE: ";SC 
LOCATE 10,8:PRINT "STAGE:";ST 
LOCATE 10, 13:PRINT "GANE OVE 

LOCATE 13, 17-.PRINT "Pulsa <S>' 
PLAY "V12L5T150O3CDECFADE6CFACDEDE6 



2760 K$=INKEY$ 

2770 IF K$="S" OR K$=V THEN GOTO 10 EL 
SE GOTO 2760 

2780 REM mt NAVE EXTRA tttt 

2790 PUT SPRITE 0, (118, 150) ,4,0 

2800 NA=NA+ 1 : PRESET (90,70) :PRINT II, "NA 

VE EXTRA" 

2810 FOR 1=0 TO 8: BEEP: BEEP: PRESET (95,1 
70):PRINT ll,"NAVES:";NA:NEXT I 
2820 FOR 1=0 TO 1000: NEXT I 
2830 GOTO 3200 

2840 TIME=0:N1=0:X=100:Y=145:DI=135:T=20 

2850 LINE (4,0)-(256,170),7,B 

2860 FOR P=0 TO 110 

2870 FR=INT(RND(l)tl4)+2 

2880 Q=246tRND(l)*5:W=170tRND(l) 

2890 PSET (Q,H),FR 

2900 NEXT P 

2910 CIRCLE (210,50),12,6,,,1:PAINT (210 
,50), 6 

2920 CIRCLE (30,30) , 12,4, ,, IsPAINT (30,3 
l),4 

2930 CIRCLE (180, 110), 15,3,, ,1:PAINT (18 
0,110), 3 

2940 PRESET (20, 175) : PRINT II, "SCORE: ";S 
C 



2950 ON SPRITE 60SUB 3130 

2960 SPRITE ON 

2970 RF=INT(RND(l)tl0) 

2980 IF RF<*5 THEN 6H*30:T=20 ELSE GH*21 

0:T=25 

2990 D=STICK(V) 

3000 PUT SPRITE 0,(X,Y),4,0 

3010 IF D=3 THEN X=X+7:IF X>235 THEN X=2 

35 

3020 IF D=7 THEN X=X-7:IF X<10 THEN X=10 
3030 IF STRIG(V)=-1 THEN EH^X: BEEP: BEEP: 
FOR DI=135 TO 0 STEP -6:PUT SPRITE 2, (EW 
,DI),6,2:NEXT DIsIF DK0 THEN PUT SPRITE 

2,(240,191),1,2:DI=135 
3040 N=INT(RND(l)t5):Hl=INT(RND(l)t5) 
3050 Q=INT(RND(l)t5):H2=INT(RND(l)t5) 
3060 IF N>Q THEN 6H=GH*10:IF GH>235 THEN 

6H=230 

3070 IF N<9 THEN GH=6H-10:IF GH<15 THEN 
SH=20 

3080 IF H1>H2 THEN T=T+5:IF T>120 THEN T 
= 115 

3090 IF HKH2 THEN T=T-5: IF T<1! THEN T= 
15 

3100 PUT SPRITE 1,(GH,T),3,7 

3110 IF T>30 OR X=6H+10 OR Y=GH+40 OR Y= 

GH THEN HF=GH:DR=T:DR=DR*25:F0R D=DR TO 

160 STEP 4:PUT SPRITE 2, ÍHF, D) ,6,2: NEXT 

D:IF D>160 THEN PUT SPRITE 2, (123,0), 1,2 

:D=5 

3120 GOTO 2990 

3130 IF DK110 THEN DI=150:PA=3:GOTO 116 
0 

3140 IF D>40 THEN D=5:PA=3:PUT SPRITE 2, 

(210,0), 1,2: SOTO 1750 

3150 SC=SM00:LINE (70, 174)-(160, 182), 1 

, BF : PRESET (68, 175) :PRINT II, SC 

3160 N1=N1M:1F Nl=9 THEN BH=4: SPRITE OF 

F: FOR 1=0 TO 10: BEEP: BEEP: NEXT I : GOTO 26 

10 

3170 GOTO 2950 

3180 NA=NA-1: PRESET (168, 175) :PRINT II," 
NAVES:"; NA: FOR 1=0 TO 2000:NEXT I:LINE ( 
160,173)-(240,185),1,BF:IF NA<1 THEN FOR 
1=0 TO 2000:NEXT I : GOTO 2690 
3190 GOTO 2950 

3200 REM tttt BONUS EXTRAS tttt 



3210 SCREEN 0:COLOR 3, 1, 1 : KEY OFF:PO=0 
3220 LOCATE 8,4:PRINT "ttttttttttttttttt 

tr 

3230 FOR 1=5 TO 9:L0CATE 8,I:PRINT "t 
t": NEXT I 

3240 LOCATE 8,10:PRINT "tttttttttttttttt 
ttf 

3250 LOCATE 12,7:PRINT "BONUS 3000" 
3260 LOCATE 11,15:PRINT "SCORE:" 
3270 PO=PO+300 

3280 SC=SC+PO: BEEP: LOCATE 17,15:PRINT SC 
3290 FOR 1=0 TO 70: NEXT I 
3300 IF PO=3000 THEN FOR 1=0 TO 100: NEXT 
I:GOTO 3320 
3310 GOTO 3270 
3320 HH=15 
3330 COLOR HH,1,1 
3340 HM=HM-1 

3350 FOR 1-0 TO 120: NEXT I 
3360 IF HH=1 THEN GOTO 3380 
3370 GOTO 3330 
3380 GOTO 2610 

3390 REM tttt INSTRUCCIONES tttt 
3400 SCREEN 0:CLS:COLOR 10,1,1:KEY OFF 
3410 LOCATE 11,0:PRINT "INSTRUCCIONES" 
3420 LOCATE 11, 1: PRINT "ttttttttttttf 
3430 LOCATE 0,3:PRINT "DEBES ALUNIZAR EN 

UN PLANETA. PERO ANTES TIENES QUE SUP 
ERAR MUCHOS PELI-GROS." 
3440 LOCATE 0,7: PRINT "EN LA li PANTALLA 

TIENES QUE EL I MI- NAR UNOS MARCIANOS A 
NTES DE QUE SE AGOTE EL TIEMPO." 
3450 LOCATE 0,11: PRINT "EN LA 2§ PANTALL 
A TENDRAS QUE SORTEARUN CAMPO DE METEORI 
TOS." 

3460 LOCATE 0,14: PRINT "EN LA 3§ PANTALL 
A DEBES ELIMINAR A UNAS NAVECILLAS QUE 
NOS ATACARAN SIN PIEDAD." 
3470 LOCATE 0,18:PRINT "EN LA 4§ PANTALL 
A DEBES ALUNIZAR EN LA PLATAFORMA Y DES 
PUES ELIMINAR A UNOS MARCIANOS INVISIB 
LES. 

3480 LOCATE 10,22:PRINT "PULSA UNA TECLA 

3490 K$=INKEYI:IF K$="" THEN 3490 ELSE C 
LS: RETURN 
3500 GOTO 3500 



Test de listados i 



10 - 0 

20 - 0 
30 - 0 
40 - 0 
50 - 0 
60 -230 
70 - 55 



90 -177 
100 -245 
110 -219 
120 - 86 
150 -134 
140 - 84 
150 - 86 



80 -133 160 - ?j_ 



170 - 21 
180 - 68 
190 -197 
200 -107 
210 - 28 
220 -251 
230 -170 
™ - 71 



250 -165 
260 -170 
270 -230 
280 -121 
290 -183 
300 -196 
310 -141 
32* -143 



330 - 23 
341 - 0 
350 - 0 
360 - f 
370 - 69 
380 -190 
390 - 29 



410 - 31 
420 -222 
430 -169 
440 - 33 
450 - 64 
460 - 59 
470 - 53 
m -223 



490 - 8 
500 - 40 
510 - 99 
520 - 45 
530 -158 
540 -202 
550 - 39 

5 " - 184 



570 -235 
580 - 98 
590 -223 
600 - 49 
610 -162 
620 -127 
630 -242 
M "234 



650 - 52 
660 -162 
670 -240 
680 - 46 
690 -238 
700 -141 
710 -106 

720 -n? 



730 -101 
740 - 81 
750 - 75 
760 -172 
770 - 77 
780 - 16 
790 - 85 
8 " -*36 



810 - 40 
820 - 90 
830 - 63 
840 -171 
850 -211 
860 -250 
870 -210 
- 24 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. " No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



PREMIOS 

5. ° MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. " MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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